Excel文件,用于计算VBA中的总行数

Question

我正在编写一个VBA宏来计算sheet2Excel文件中的行数

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用于Cell 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
   

我想你正在寻找二手细胞系列.将变量定义为Long以解决溢出问题

Dim cnt As Long 
Dim i As Long