VBA类型不匹配

时间:2013-06-09 22:06:47

标签: excel vba

我的简单代码中出现类型不匹配,我不明白为什么。有人可以解释为什么我收到此错误?我在ActiveSheet行上收到错误。

Sub testHidden()
Dim i As Integer
Dim totalRows As Long

totalRows = ActiveSheet.UsedRange.Rows.Count

ActiveSheet.Rows("1:totalRows").Hidden = False

End Sub

2 个答案:

答案 0 :(得分:4)

或者简单地说:

Sub testHidden()
    ActiveSheet.UsedRange.Rows.Hidden = False
End Sub

答案 1 :(得分:1)

根据user414076的评论,其中大部分都是正确的:

Sub testHidden()
Dim i As Integer
Dim totalRows As long

totalRows = ActiveSheet.UsedRange.Rows.Count
ActiveSheet.Rows("1:" + CStr(totalRows)).Hidden = False
End Sub