下标超出范围错误使LastRow成为整数

Question

我正在尝试将LastRow存储为Integer，但始终收到“运行时错误'9'：下标超出范围”。我需要它处理的工作表是“自助服务报告”。我正在使用的代码是：

Dim LastRow As Integer

LastRow = ThisWorkbook.Sheets("Self-Service Report").Cells(Rows.Count, 1).End(xlUp).Row

Answer 1

1. Excel的行数超过Integer不能处理，因此行计数变量必须为Long

2. Rows.Count应该在工作表中指定

3. 您的工作表名称Self-Service Report似乎是错误的。检查拼写和多余的空格。

4. Worksheets不等于Sheets。 Worksheets仅包含工作表，但Sheets也可以包含Charts。

---

Dim LastRow As Long

With ThisWorkbook.Worksheets("Self-Service Report")
    LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
End With