在Worksheet_Change上隐藏/取消隐藏具有空行的单元格

Question

我有两列数据通过每个单元格中的公式从工作簿中其他工作表上的数据中提取到工作表中...

第一列，A列，对于通过其他工作表中的公式提取的数据，具有“是”，“否”或“空白”。

第二列B列也有从其他地方引入的数据，但每行都有数据。

我希望隐藏在A列中没有任何内容的任何行。任何包含A列数据的行都应该是可见的。当输入的数据显示在A列中时，我希望使用VBA通过worksheet_change事件更新此内容。

非常感谢您的帮助。

Answer 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

您必须在工作表的代码中插入此内容。右键单击工作表名称并按视图代码并将其另存为宏启用。 当对a列进行更改时，它会被激活。