Question

使用Excel VB得到表已使用的行数

Sub Func1()
Dim SumRows As Integer
SumRows = Sheets(Sheet2).UsedRange.Rows.Count
End Sub
"目的是得到Sheet2已使用的行数，为什么报"Type mismatch"呢？

Answer 1

你试用这就行了，是开始有内容的行到最后有内容的行数：

Sub Func1()
Dim SumRows As Integer
Sheets("Sheet2").Select
ActiveSheet.UsedRange.Rows.Count
End Sub

我一般用以下语句求A列最后一行：

lastrow = Cells(Rows.Count, 1).End(3).Row

Answer 2

请试试

SumRows = Sheets("Sheet2").UsedRange.Rows.Count
或者

SumRows = Sheets(2).UsedRange.Rows.Count

Answer 3

Sheets("Sheet2").