VBA - 4개 열의 항목을 한개의 열로

독서 학급문고관리대장 만들때 메일머지 쓰려는데 필요해서 이리저리 비틀대다 만듬...

이리저리 하다 결국 macro 7로 해결

하지만 만들던게 아까워서 다 올려봄

Sub Macro1()
'
' Macro1 Macro
'
' 바로 가기 키: Ctrl+g
'

    For i = 5 To 84 Step 2
        Rows(i).Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Next i
 '   Range("C4").Select
 '   Selection.Cut Destination:=Range("B5")
 '   Range("B5").Select
End Sub
Sub Macro3()
'
' Macro1 Macro
'
' 바로 가기 키: Ctrl+g
'
    For i = 6 To 200 Step 3
        Rows(i).Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Next i
 '   Range("C4").Select
 '   Selection.Cut Destination:=Range("B5")
 '   Range("B5").Select
End Sub
Sub Macro2()
'
' Macro2 Macro
'

'
'B5 = C4

For i = 4 To 82 Step 2
    babo = "C" + Trim(Str(i))
    chun = "b" + Trim(Str(i + 1))
    Sheets("Sheet1").Range(babo).Copy Sheets("Sheet1").Range(chun)
Next i

'Range("C4").Select
 'Selection.Cut Destination:=Range("B5")
  'Range("B5").Select
End Sub
Sub Macro4()
'
' Macro2 Macro
'

'
'B5 = C4

For i = 4 To 200 Step 3
    babo = "C" + Trim(Str(i))
    chun = "b" + Trim(Str(i + 2))
    Sheets("Sheet1").Range(babo).Copy Sheets("Sheet1").Range(chun)
Next i

'Range("C4").Select
 'Selection.Cut Destination:=Range("B5")
  'Range("B5").Select
End Sub
Sub Macro5()
'
' Macro1 Macro
'
' 바로 가기 키: Ctrl+g
'
    For i = 10 To 200 Step 4
        Rows(i).Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Next i
 '   Range("C4").Select
 '   Selection.Cut Destination:=Range("B5")
 '   Range("B5").Select
End Sub
Sub Macro6()
'
' Macro2 Macro
'

'
'B5 = C4

For i = 4 To 200 Step 4
    babo = "C" + Trim(Str(i))
    chun = "b" + Trim(Str(i + 3))
    Sheets("Sheet1").Range(babo).Copy Sheets("Sheet1").Range(chun)
Next i

'Range("C4").Select
 'Selection.Cut Destination:=Range("B5")
  'Range("B5").Select
End Sub

Sub Macro7()
'
' Macro1 Macro
'
' 바로 가기 키: Ctrl+g
'
' 데이터는 B4부터 놓기. A열에 값을 넣자.
    j = 4
    For i = 4 To 200 Step 4
        babo = "B" + Trim(Str(j))
        chun = "A" + Trim(Str(i))
        Sheets("Sheet1").Range(babo).Copy Sheets("Sheet1").Range(chun)
        babo = "C" + Trim(Str(j))
        chun = "A" + Trim(Str(i + 1))
        Sheets("Sheet1").Range(babo).Copy Sheets("Sheet1").Range(chun)
        babo = "D" + Trim(Str(j))
        chun = "A" + Trim(Str(i + 2))
        Sheets("Sheet1").Range(babo).Copy Sheets("Sheet1").Range(chun)
        babo = "E" + Trim(Str(j))
        chun = "A" + Trim(Str(i + 3))
        Sheets("Sheet1").Range(babo).Copy Sheets("Sheet1").Range(chun)
        j = j + 1
    Next i
   
End Sub