excel vba最后一行变量未计算

我用的是：

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

Dim lastrowmonth为整数，PMARow为整数
lastRowMonth=单元格（1&“，”&行。计数）。结束（xlUp）。行
当PMARow

但是，它一直告诉我，

lastRowMonth=1

，因此不允许我访问

do while

中的代码。这里有任何建议，因为A列中有1400个填充单元格，理想情况下，我想继续将

1

更改为一个变量，以便在其他列中移动

---

任何帮助都是伟大的

您需要将第二行更改为：

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

---

您需要将第二行更改为：

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

试试这个：

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

也许最好将

lastRowMonth

声明为

Long

，因为excel中的行数超过了

整数所能容纳的行数
试试以下方法：

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

也许将
lastRowMonth
声明为
Long
是个好主意，因为在excel中，行数超过了
整数所能容纳的行数
如果您使用的是
单元格
，它就是
单元格（行、列）
而不是相反。如果您使用的是
单元格
，它就是
单元格（行、列）
并非相反。没有问题@CJones。我不认识你，但我很确定你不是白痴：）没问题。我不认识你，但我很确定你不是白痴：）