Excel VBA 最后一行变量不计算

Question

我正在使用以下行：

Dim lastrowmonth as Integer, PMARow As Integer
lastRowMonth = Cells(1 & "," & Rows.Count).End(xlUp).Row
Do While PMARow < lastRowMonth + 1

但是它一直告诉我，lastRowMonth = 1因此不会让我在do while内访问我的代码。这里有任何建议，因为 A 列中有 1400 个填充单元格，理想情况下，我想继续将1更改为变量以在其他列中移动。

任何帮助都将是伟大的！

Answer 1

试试这个：

lastRowMonth = Cells(Rows.Count,1).End(xlUp).Row

也许将lastRowMonth声明为Long是一个好主意，因为在 excel 中，行数比Integer可以占用的要多

Answer 2

您需要

将第二行更改为：

lastRowMonth = Cells(Rows.Count, 1).End(xlUp).Row