0

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

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

totalRows = ActiveSheet.UsedRange.Rows.Count

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

End Sub
4

2 回答 2

4

或者简单地说:

Sub testHidden()
    ActiveSheet.UsedRange.Rows.Hidden = False
End Sub
于 2013-06-09T23:16:49.027 回答
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
于 2013-06-09T22:30:49.163 回答