나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내
작성자:  

 dew (dewdrop)

추천:  2
파일:     질문(249)_Ans.xlsm (21.2KB) 조회:  1548
제목:   [RE]빈칸이 나타나면 다음 데이터 가져오기
　 　 　
　 첨부 파일 확인 바랍니다.
함수을 사용해서 해볼려고 했는데 제 실력으로는 안되네요^^;;
==============[일사천리님 글에 대한 답변입니다]==============

아래와 같이 VBA로 만들었습니다. 첨부화일 참고하세요...

Sub ConvertData()
    Dim lRow As Long
    Dim rTable1 As Range, rTable2 As Range
    Dim rCell As Range, rRow As Range
    
    ' 구분
    Set rTable1 = Range("J1").CurrentRegion
    Set rTable1 = rTable1.Offset(1).Resize(rTable1.Rows.Count - 1)
    
    ' 자재/수량
    Set rTable2 = Range("G1").CurrentRegion
    Set rTable2 = rTable2.Offset(1).Resize(rTable2.Rows.Count - 1)
    
    ' 기존 자료 지우기
    Range("A1").CurrentRegion.Offset(1).ClearContents
    
    lRow = 1
    For Each rCell In rTable1
        For Each rRow In rTable2.Rows
            lRow = lRow + 1
            Cells(lRow, 1).Resize(1, 2) = rRow.Value
            Cells(lRow, 3) = rCell
        Next
    Next
End Sub
 		　
[불량 게시물 신고]  
일사천리감사합니다.06-13 (13:29)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2019-06-13(12:51)
최종수정일 : 2019-06-13(12:51)
　


 ◎ 관련글
  제 목   작성자   날짜
빈칸이 나타나면 다음 데이터 가져오기 일사천리 2019-06-13
◎ [RE]빈칸이 나타나면 다음 데이터 가져오기 dew 2019-06-13