使用 vba 查看和隐藏 Excel 中的列

我有一个工作表，其中 B:G 列中包含值。在单元格 A1 的同一张表中，我使用数据验证创建了一个下拉列表，其中包含 A、B 和 C 等值。

我需要的是，当我选择单元格值 A 时，B:C 列需要可见，而其他列应该对 D:G 隐藏。以同样的方式，如果我从列表中选择 B，我需要查看列 D:E、B:C 和 F:G 应该被隐藏。

你能帮我解决这个问题吗？

注意：我对 VBA 没有很好的了解。

尝试这个：

1. 打开 VBA 编辑器（ALT + F11)
2. 双击Sheet1
3. Select Worksheet在左上角下拉并Change在右上角下拉
4. 粘贴此代码

注意-这假设数据验证是在单元格中进行的A1

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim allColumns As Range

    Set allColumns = Columns("B:G")
    allColumns.Hidden = True

    If Not Intersect(Target, Range("A1")) Is Nothing Then
        If Target.Value = "A" Then
            Columns("B:C").Hidden = False
        ElseIf Target.Value = "B" Then
            Columns("D:E").Hidden = False
        ElseIf Target.Value = "C" Then
            //Add more logic here
        End If
    End If
End Sub