vba 将数据复制到特定列的最后使用的行

Copy data upto last used Row of a specific column

提问by Praveenks

I am using this code to get the last used rows-

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

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

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

Now, i want to copy the data of a specific column upto last row used.

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

//What to write in the below code to use rowNo //

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

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

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

Source.Copy

Source.Copy

回答by Siddharth Rout

That's the incorrect way to find the last row. See the linkon how to find the last row.

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

Once you have found the last row then simply use this code to copy

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

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

Where wsis the worksheet object.

ws工作表对象在哪里。