엑셀vba예제
[땡큐엑셀vba & 엑셀매크로] a열에 데이터가 존재하면 b열의 값을 한줄 내려서 표시하도록 하려고 합니다.
땡큐엑셀
2020. 8. 30. 00:00
'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
