[땡큐엑셀vba & 엑셀매크로] a열에 데이터가 존재하면 b열의 값을 한줄 내려서 표시하도록 하려고 합니다.

실행전

 

실행후

'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=293294923
'
'첫번째 표를 두번쨰 표 형식으로 바꾸려고 하는데요
'a열에 데이터가 존재하면 b열의 값을 한줄 내려서 표시하도록 하려고 합니다.
'이걸 일일히 손으로 작업하지 않고 엑셀기능을 통해서 쉽게 할 수 있는 방법이 없을까요??



'[Sheet2]
'
'Source by 땡큐엑셀vba & 엑셀매크로
'
Sub 실행()
    
    '100행까지 (이부분은 입맛에 맞게 수정하여 사용하세요)
    For i = 1 To 100
    
        strA = Range("A" & i)
        strB = Range("B" & i)
        
        If strA <> "" And strB <> "" Then
            '아래에 행삽입
            Cells(i + 1, "A").EntireRow.Insert Shift:=xlDown
            'B열 공백으로
            Cells(i, "B") = ""
            '삽입한 행의 B열에 값복사
            Cells(i + 1, "B") = strB
        End If
        
    Next
    
    
    MsgBox "완료되었습니다", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    
 
 
End Sub

지그재그로출력-땡큐엑셀vba.xlsm

0.14MB