☰

使用基于单元格值的宏取消隐藏行（针对 10000 行）

tag-icon • tag-icon microsoft-excel vba macros
使用基于单元格值的宏取消隐藏行（针对 10000 行）

我对宏还很陌生。但是，我在这个网站上找到了一个宏，可以用 False 值来隐藏行。我编辑了该宏，使其再次取消隐藏行，并且它工作正常。问题是我希望它适用于许多行，所以我将它设置为从 A1 到 A10000。当我隐藏它时，它工作正常，但是当我取消隐藏它时，Excel 软件将停止工作（我使用 mac）。那么我该怎么办？

Sub HiddeA()
Dim A As Range
Set A = Range("A1:A10000")
A.EntireRow.Hidden = False
For i = 1 To 10000
    If Cells(i, 1).Value <> "" And Cells(i, 1).Value = False Then
        Cells(i, 1).EntireRow.Hidden = True
    End If
Next i
End Sub


Sub ShowA()
Dim A As Range
Set A = Range("A1:A10000")
A.EntireRow.Hidden = True
For i = 1 To 10000
    If Cells(i, 1).Value <> Cells(i, 1).Value = False Then
        Cells(i, 1).EntireRow.Hidden = False
    End If
Next i
End Sub

答案1

Sub ShowA()应该是这样的：

Sub ShowA()
For i = 1 To 10000
    If Cells(i, 1).Value <> "" And Cells(i, 1).Value = False Then
        Cells(i, 1).EntireRow.Hidden = False
    End If
Next i
End Sub

您不需要发出该行，A.EntireRow.Hidden = True因为它隐藏了每一行。

此外你忘了双引号和and在线

If Cells(i, 1).Value <> Cells(i, 1).Value = False Then

相关内容