宏：如何在CSV文件中找到包含数据的最后一行

Question

我正在尝试从多个Excel文件中复制一些数据范围并粘贴（通过附加）到单个csv文件中。因此，要附加数据，我需要找到csv文件中的最后一行。 在csv中找到最后一行编号的方法与在excel中找到最后一行编号的方式不同，如下所示？ 单元格（Rows.Count，“a”）。结束（xlUp） 如果是这样，我如何找到csv中的最后一行？或者您对如何将来自不同Excel文件的数据范围附加到单个csv文件中有任何建议吗？

非常感谢，

Answer 1

这样做的好方法是细胞（1048576,1）.end（xlup）.row。这将为您提供第一列中非空白的最后一行。为此，您必须确保第一列不为空并且包含数据。 '1048576'是excel 2010中的最后一行。在2007年，它大约有600000.所以根据你的excel版本进行相应的更改。

如果您要附加数据，请使用此

Cells(Cells(1048576, 1).End(xlUp).Row + 1, 1).Select
Activesheet.paste

希望这有帮助。