vba 범위 복사 붙여넣기

Sub range_copy()
Dim rng
Dim cnt As Long

rng = Sheets("가공").Range("a2", Cells(Rows.Count, "d").End(xlUp))
' Sheets("가공").Range("g2", Cells(Rows.Count, "f").End(xlUp)).ClearContents

' Sheets("가공").Cells(2, Columns.Count).End(xlToLeft).Select
If IsEmpty(Range("g2")) = False Then
Sheets("가공").Range(Cells(2, Columns.Count).End(xlToLeft), Cells(Rows.Count, "g").End(xlUp)).ClearContents
End If
cnt = Sheets("가공").Range("a2", Cells(2, Columns.Count).End(xlToLeft)).Columns.Count '
Sheets("가공").Range("g2").Resize(UBound(rng, 1), cnt) = rng

Erase rng

End Sub

VBA_127_완성.xlsm

0.23MB