1

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

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

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

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

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

Source.Copy

4

1 回答 1

1

这是找到最后一行的错误方法。请参阅有关如何找到最后一行的链接。

找到最后一行后,只需使用此代码复制

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

ws工作表对象在哪里。

于 2013-02-17T04:01:36.167 回答