我的简单代码中出现类型不匹配,我不明白为什么。有人可以解释为什么我收到此错误?我在ActiveSheet行上收到错误。
Sub testHidden()
Dim i As Integer
Dim totalRows As Long
totalRows = ActiveSheet.UsedRange.Rows.Count
ActiveSheet.Rows("1:totalRows").Hidden = False
End Sub
答案 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