在 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 列发生更改时，它会被激活。