如何解决删除 ListObject动态表中的所有列,除了基于其标题宏 vba 的特定列
我有一个动态表 (ListObject),并尝试编写宏以删除除“name1”和“name2”之外的所有列。 我该怎么做?
谢谢, 丽塔
解决方法
试试这个:
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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。