将数据复制到上次使用的特定列的行

Question

我使用此代码获取最后使用的行 -

rowNo=objExcel.Activeworkbook.Sheets(1).UsedRange.Rows.count

现在，我想复制特定列的数据，直到最后一行使用。

//在下面的代码中写什么来使用rowNo //

Set Source=objExcel.Activeworkbook.Sheets(1).Column("G")

Source.Copy

Answer 1

这是找到最后一行的错误方法。有关如何找到最后一行的信息，请参阅link。

找到最后一行后，只需使用此代码进行复制即可

ws.Range("G1:G" & rowNo).Copy

其中ws是工作表对象。