拷貝VBA代碼，直到最後一排

Question

如何修改

XLApp.Range("A1:K1" & LastRow).Copy 

，如果我要複製的A1：K1，直到最後一排有在選定區域的細胞的一個數據。對不起，我英文很差。

Answer 1

LastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row 

會給你第1列（「A」）的最後一行。對於k列最後一排，你需要到位的1

Answer 2

使用11下面的代碼顯示了一個通用的方法來做到這一點：

Range(Range("A1", Range("A1").End(xlToRight)), Range("A1", Range("A1").End(xlDown))).Rows.Count 

你可以改變，如果你想在A1參考其他。代碼複製從A1開始到右側和從右側開始的範圍。