엑셀 에서 현재 열을 맨 마지막 열에 복사 하는 매크로

엑셀 작업중, 반복적으로 열을 복사 해서 사용할 때 유용한 함수로,  현재 열을 시트의 비어 있는 마지막 열로 복사해줍니다.

 

Sub copyToLastRow()

Application.ScreenUpdating = False
Dim copySheet As Worksheet

'시트가 다를 경우 예비
'Dim pasteSheet As Worksheet

'작업하는 시트 이름
Set copySheet = Worksheets("Sheet1")

'작업하는 시트 이름
'Set pasteSheet = Worksheets("Sheet2")

Range("A" & Selection.Row & ":AG" & Selection.Row).Select
Selection.Copy

'copySheet.Range("A" & Selection.Row & ":AG" & Selection.Row).Copy
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
Selection.Insert Shift:=xlDown
'시트가 다를 경우
'pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub