删除 ListObject（动态 table）中的所有列，除了基于其 headers 宏 vba 的特定列

Question

我有一个动态 table (ListObject)，并试图编写宏来删除除“name1”和“name2”之外的所有列。我该怎么做？

谢谢，丽塔

Answer 1

试试这个：

Sub DeleteColumnsInListObject()
Dim ws As Worksheet
Dim lo As ListObject
Dim loCol As ListColumn



Set ws = ThisWorkbook.Worksheets("Sheet1")
Set lo = ws.ListObjects("Table1")

For Each loCol In lo.ListColumns
    If loCol.Range.Cells(1).Value <> "name1" And loCol.Range.Cells(1).Value <> "name1" Then
        loCol.Range.Delete
    End If
Next

End Sub

删除 ListObject（动态 table）中的所有列，除了基于其 headers 宏 vba 的特定列

Delete all columns in ListObject (dynamic table) except specific based on their headers macro vba

vba

listobject