在单元格中输入特定值时删除列（在另一个选项卡中）

Question

我有一个选项卡，可以在其中在单元格中输入某个数字（1 到 20 之间）。当我输入数字时，我想自动删除另一个选项卡中的列。

下一个选项卡有一个包含 20 列的表格。如果我在选项卡 1 的单元格中输入数字 1，我想自动删除选项卡 2 中的第 2 到 20 列。

我不想手动运行宏，而是在输入值时自动执行删除过程。

像这样开始的东西会起作用吗？

Private Sub Workbook_Change(ByVal Target As Excel.Range)

    If Target.Address = "$B$2" Then
        If Target.Value = 1 Then Columns("B:T").Delete
    End If

End Sub

我会将代码直接放在表 1 中，在其中输入值（假设在单元格 B2 中）。然后，如果我输入 1 值，它将删除列 B 到 T（2 到 19）。

我需要参考工作表 2 来删除这些列。

我是否应该继续将值 2、3、4、... 的 If 语句添加到 20 并更改我的列删除语句？

表格截图：

C 到 V 列将根据我在另一张表中输入的数字被删除或添加，X 列将是行上指示的数字的总和（从 C 列到 V 列）。 Z 列有一个公式链接到另一个工作表（现在为空，因此为 0），AB 列将 X 列除以 Z 列。

Answer 1

此方法使用循环。这假设您的第二个工作表名称是 Sheet2，您有 20 列，并且您的表格从 Column A 开始。

您可能需要使其更加系统化 - 这在第一次使用时会正常工作，但一旦您删除一列，您将移动整个范围。您可能还需要添加提示以验证选择。如果黄油手指击中 3 而不是 2 怎么办？您将删除该列，并且不能在 VBA 中使用 CTRL + Z ...只是一些想法

---

1. 在做任何事情之前确保更改的单元格是B2
2. 确保B2 的输入实际上是一个数字。此处的宏仅限于 1 - 20 之间的数字
3. 遍历列并删除任何不等于B2 值的列索引#

---

Private Sub Worksheet_Change(ByVal Target As Range)

Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet2") '<-- Sheet with table
Dim i As Long

Application.EnableEvents = False
    If Not Intersect(Target, Range("B2")) Is Nothing Then
        If Target > 0 And Target < 21 Then
            For i = 1 To 20

                If Target <> i Then
                    ws.Cells(1, i).EntireColumn.Delete
                End If

            Next i
        End If
    End If
Application.EnableEvents = True

End Sub