ユーザー定義の範囲をコピーして貼り付けます

Question

ユーザー定義の範囲をコピー＆ペーストできますか？私は以下を持っていますが、何らかの理由でアクションを実行しようとするとエラーが発生しています。私は1つの小さな変化がないと思う。ありがとう。

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

あなたはここでエラー持っています：

Destination:=ActiveSheet.Range(lngLastRow2) 

xはいくつかのLongある.Range(x)に評価されます。 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