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