Hide/Unhide cells with empty rows on Worksheet_Change

问题

I have two columns of data that is pulled into a worksheet from data on other sheets elsewhere in the workbook via a formula in each cell...

The first column, Column A, has either a Yes, No or is blank from data that is pulled in via a formula from another sheet.

The second column, Column B, also has data pulled in from elsewhere but every row has data in it.

What I hope to do is hide any rows that does not have anything in column A. Any rows with data in column A should be visible. I'd like this to be updated via the worksheet_change event using VBA when data is entered that appears in column A.

Many thanks if you can help.

回答1:

    Private Sub Worksheet_Change(ByVal Target As Range)
        If Intersect(Target, Me.Range("A:A")) Is Nothing Then Exit Sub
        Application.EnableEvents = False
dim lrow as Integer
dim i as Integer
     lrow = Cells(1, 2).End(xlDown).Row
    For i = 1 To lrow
    If Cells(i, 1) = 0 Then
    Rows(i).Select
    Selection.EntireRow.Hidden = True
    End If
    Next
        Application.EnableEvents = True
    End Sub

You have to insert this on the code of the sheet. right click the sheet name and press the view code and save it as macro enable. It gets activated when changes have done to column a.

来源：https://stackoverflow.com/questions/32542758/hide-unhide-cells-with-empty-rows-on-worksheet-change