Unhiding uma linha usando uma macro com base no valor da célula (para 10000 linhas)

Question

Eu sou muito novo no macro. No entanto, encontrei uma macro neste site para ocultar linhas com o valor Falso. Eu editei a macro para também mostrar a linha novamente, e funcionou bem. O problema é que eu quero que ele funcione para muitas linhas, então eu faço de A1 para A10000. Quando eu escondo funciona bem, mas quando eu mostrar o software Excel vai parar de funcionar (eu uso mac). Então, o que devo fazer?

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

    

Answer 1

Sub ShowA() deve ser assim:

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

Você não precisa emitir a linha A.EntireRow.Hidden = True porque está ocultando todas as linhas.

Em adittion você esqueceu o doublequoutes e o and na linha

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