Excel文件来计算VBA中的总行数

我正在写一个VBAmacros来计算Excel文件的sheet2中的行数

 Dim cnt As Integer Dim i As Integer cnt = Range("Sheet2").Rows.Count ' giving error at this row For i = 2 To cnt t1 = "A" + CStr(i) t2 = "B" + CStr(i) Next i 

但它给错误：

对象'_global'的方法'范围'失败

Answer 1

Range用于单元格范围不适用于Excel表格 。

试试以下几点：

1. 要获得使用的行数 ：

    cnt = Worksheets("Sheet2").Cells.SpecialCells(xlCellTypeLastCell).Row 

2. 要获得工作表的所​​有行的计数 ：

    cnt = Worksheets("Sheet2").Rows.Count 

3. 要获得特定Range的行数 ：

    cnt = Worksheets("Sheet2").Range("A1:A6500").Rows.Count 

我想你正在寻找使用的细胞范围。 将variables定义为Long来解决溢出问题

 Dim cnt As Long Dim i As Long 

Answer 2

Sheet2是一个表，而不是一个范围。

 Worksheets("Sheet2").Rows.Count