Excel 将数据复制到特定列的最后一行

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

rowNo=objExcel.Activeworkbook.Sheets（1）.UsedRange.Rows.count

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

//要使用rowNo，请在下面的代码中编写什么//

Set Source=objExcel.Activeworkbook.Sheets（1）.列（“G”）

---

Source.Copy

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

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

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

---

其中，

ws

是工作表对象。

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

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

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

---

其中，

ws

是工作表对象。

感谢您的回复！只有一个查询-当我粘贴excel中的所有值时，所有值彼此重叠。我如何才能使其逐个粘贴。。。Set dest=objExcel2.Activeworkbook.Sheets（1.Columns）（“A”）dest.PasteSpecialSorry我不明白？是否要将数据从列转换为行？否，文件夹中有一些excel文件。我正在尝试复制特定的列值并将其放入单个excel表中。您的建议是，我可以在粘贴到新excel表中时复制所有值。所有这些值都将被粘贴到另一个表中。我希望将所有这些值逐个粘贴（例如，如果第一张图纸中有12个值，那么它将粘贴在第二张图纸值之后，依此类推。）这是因为您要将其直接粘贴到A列中。您还必须找到目标工作表中的最后一行，然后再粘贴。感谢您的响应！只需进行一次查询-当我粘贴excel中的所有值时，所有值都会相互重叠。如何使其逐个粘贴…设置dest=objExcel2.AActiveWorkbook.表（1）.列（“A”）dest.paste Special对不起，我不明白？是否要将数据从列转换为行？不，文件夹中有一些excel文件。我正在尝试复制特定列值并将其放入单个excel工作表中。您建议的是，在帮助下，我可以复制所有值，但同时将其粘贴到新的excel工作表中。所有这些值都将被一个一个地粘贴。我希望所有这些值都被一个地粘贴（例如，如果第一张图纸中有12个值，那么它将被粘贴到第二张图纸值之后，依此类推。）这是因为您要将其直接粘贴到A列中。您还必须找到目标工作表中的最后一行，然后再粘贴