复制到最后一行的VBA代码

Question

如何修改

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

如果我要复制A1：K1，直到最后一行，所选区域中的一个单元格中有数据。抱歉我的英语不好。

Answer 1

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

将为您提供第1列中的最后一行（＆＃34; A＆＃34;）。对于k列的最后一行，您需要使用11代替1。

Answer 2

以下代码显示了执行此操作的一般方法：

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

如果需要，您可以将A1引用更改为其他。代码复制从A1到右和从右到下的范围。