excel - 宏：如何使用 CSV 文件中的数据定位最后一行

Question

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

非常感谢，

Answer 1

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

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

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

希望这可以帮助。