请提供一个Excel表中第二行会根据B1所显示的条件进行隐藏或显示的VBA代码

以下是一个简单的VBA代码，它将检查单元格B1的值，如果值为0，则隐藏第二行，如果值为1，则显示第二行：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$1" Then
        If Target.Value = 0 Then
            Rows("2:2").EntireRow.Hidden = True
        ElseIf Target.Value = 1 Then
            Rows("2:2").EntireRow.Hidden = False
        End If
    End If
End Sub

请将此代码复制并粘贴到工作表的代码窗口中。要打开代码窗口，请在Excel中按下Alt + F11。在左侧的项目浏览器中，选择要添加代码的工作表，然后选择“插入”>“模块”添加一个新模块。将代码复制粘贴到新模块中，保存并关闭代码窗口。