將數據復制到特定列的上次使用行

Question

我正在使用此代碼來獲取最后使用的行-

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

現在，我想將特定列的數據復制到使用的最后一行。

//在下面的代碼中寫什么才能使用rowNo //

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

Source.Copy

Answer 1

那是找到最后一行的錯誤方法。 請參閱有關如何找到最后一行的鏈接 。

找到最后一行后，只需使用此代碼進行復制

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

其中ws是工作表對象。