[VBA] 다른 시트 셀 복사

매크로 전 시트 구성

 

Sub Cell_copy()

Sheets(1).Activate
Range("B2").Select

rcount = Sheets(1).Range("B" & Rows.Count).End(xlUp).Row - 1
For i = 1 To rcount
Sheets(2).Activate
Range("B1").Select
Selection.Copy
ActiveCell.Offset(0, i).Select
Sheets(2).Paste

Sheets(2).Activate
ActiveCell.Value = Sheets(1).Cells(i + 1, 2).Value
Sheets(1).Activate
Next i

Application.CutCopyMode = False
End Sub

 

매크로 적용 후