範囲機能でLastRowを使用するにはどうすればよいですか？

Question

したがって、ワークシート1-ワークブックAからワークシート1-ワークブックBまでのセルの特定の範囲の値をコピーしたいとします。

ソースワークシートからすべてをコピーするとします。具体的には、値を持つすべてのセルをコピーします。

宛先ワークシートには、ソース・ワークシートの値に指定されたセルがあります。

これは（！それは悪いですが、私はVBAでのnoobだ）これまでの私のコードです：私の範囲で

Sub CopyRangeofCells() 
Dim x As Workbook 
Dim y As Workbook 



Set x = Workbooks.Open("C:\test\template.xlsx") 
Set y = Workbooks.Open("C:\test\finalfile.xlsx") 


x.Sheets("RDBMergeSheet").Range("A1").Copy 


y.Sheets("CW Fast").Range("A1").PasteSpecial 

'Close x: 
x.Close 

End Sub 

、私は範囲（「：LASTROW A1」）のような何かをしたいですまたは何かの種類。どうすればいいのですか？私はlastrow変数を作成してから（ "A1：mylastrowvariable"）することはできますか？

希望すると助かります！ VBAはとても混乱しているので、Javaを一日中教えてください！ ：Pこのような

Answer 1

何か：

Sub CopyRangeofCells() 
Dim x As Workbook 
Dim y As Workbook 
Dim LastRow as Long 
Dim LastRowToCopy as Long 

Set x = Workbooks.Open("C:\test\template.xlsx") 
Set y = Workbooks.Open("C:\test\finalfile.xlsx") 

LastRowToCopy = x.Sheets("RDBMergeSheet").Cells(x.Sheets("RDBMergeSheet").Rows.Count, "A").End(xlUp).Row 
x.Sheets("RDBMergeSheet").Range("A1:A" & LastRowToCopy).Copy 
'copy from A1 to lastrow 
LastRow = y.Sheets("CW Fast").Cells(y.Sheets("CW Fast").Rows.Count, "A").End(xlUp).Row + 1 'find the last row 
y.Sheets("CW Fast").Range("A" & LastRow).PasteSpecial xlPasteValues 
'paste on the lastrow of destination + 1 (so next empty row) 
x.Close 
End Sub 

Answer 2

だが、それはステップバイステップでやってみましょう：

Sub CopyRangeofCells() 

Dim x As Workbook 
Dim y As Workbook 
Dim LastRow As Long 

Set x = Workbooks.Open("C:\test\template.xlsx") 
Set y = Workbooks.Open("C:\test\finalfile.xlsx") 

With x.Sheets("RDBMergeSheet") 
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row ' get last row with data in column "A" 

    .Range("A1:A" & LastRow).Copy 
End With 

y.Sheets("CW Fast").Range("A1").PasteSpecial xlPasteValues 

'Close x: 
x.Close 

End Sub