사용자 정의 범위 복사 및 붙여 넣기

Question

사용자 정의 범위를 복사하여 붙여 넣을 수 있습니까? 나는 아래에 있지만 어떤 이유로 작업을 수행하려고 할 때 오류가 발생합니다. 나는 하나의 작은 변화를 놓치고 있다고 생각한다. 감사.

Destination:=ActiveSheet.Range(lngLastRow2) 

x가 어떤 Long입니다 .Range(x)로 평가

Sheets("Sheets1").Select 
Dim lngLastRow2 As Long 

lngLastRow2 = Cells(Rows.Count, "A").End(xlUp).Row 

Worksheets("Sheets2").Range("A3:A" & lngLastRow).Copy _ 
Destination:=ActiveSheet.Range(lngLastRow2) 

Answer 1

당신은 여기에 오류가 않습니다. Range에 필요한 내용은 .Range("A20")과 같습니다.

하나의 해결책은

Destination:=ActiveSheet.Range("A" & lngLastRow2) 

로 변경하거나 다른 해결책 대신 Range 변수를 사용하는 것입니다 : 현재 당신이 단지를 가지고

Dim lastRow As Range 
Set lastRow = ThisWorkbook.Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp) 
With ThisWorkbook.Worksheets("Sheet2") 
    .Range("A3:A" & lastRow.Row).Copy Destination:=.Range(lastRow.Address) 
End With