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

Question

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

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

但它给出了错误:

Method 'Range' of object '_global' failed

Answer 1

Range用于单元格范围而不是 Excel 表格 .

尝试以下操作:

获取 已用行数 :

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

获取 工作表所有行的计数 :

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

获取 特定 Range 的行数 :

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

我认为您正在寻找使用过的单元格范围。将变量定义为 Long 以解决溢出问题

Dim cnt As Long 
Dim i As Long