excel - 查找标题行名称

Question

嗨。我有一个表 (Table1)，其中包含名为 Enq 1、Enq 2 等的列。我需要做的是能够根据上面单元格的条件选择该列并删除其中的数据。我已经编写了如下代码，但我似乎无法弄清楚如何使用 VBA 选择列。我无法使用 Offset，因为将来可能会添加更多行

Dim rng As Range: Set rng = ActiveSheet.Range("Removal")
Dim cel As Range
For Each cel In rng.Cells
  If cel = "SELECTED FOR REMOVAL" Then
    Range("Table1[Enq 2]").Select
    Selection.ClearContents
  End If
Next cel

谢谢

Answer 1

最好在此处使用 For..Next 循环来删除要删除的列:

Dim ws  As Worksheet: Set ws = ThisWorkbook.ActiveSheet
Dim rng As Range: Set rng = ws.Range("Removal")
Dim i as Long
For i = 1 To rng.Columns.Count
  If rng.Cells(1, i).Value = "SELECTED FOR REMOVAL" Then
    ws.ListObjects("Table1").ListColumns(i).Range.ClearContents
  End If
Next i