用vba方式删除表格中某几个标题所在的整列

noputon

1：如何用vba方式删除表格中某几个标题所在的整列，不是固定的C列，D列等，比如删除标题为“备注”，“单据号码”和“车间员工”等列。
2：如果是只保留这3列呢？

全党

Sub shishi()
Excel.Application.DisplayAlerts = False
cn = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To cn
If Cells(1, i) = "标题1" Or Cells(1, i) = "标题1" Then

Columns(i).Select
Selection.Delete Shift:=xlToLeft
End If
Next
Excel.Application.DisplayAlerts = True
End Sub

zjzyj

附件供参考   

noputon

zjzyj 发表于 2023-4-6 21:41
附件供参考

非常感谢，达到了我的需要，谢谢！
另外再问一下，如果是只保留这3列呢？该怎么弄？考虑到如果要删除的列远多于要保留的列会比较麻烦。

HSIAOQIANG

noputon 发表于 2023-4-6 21:48
非常感谢，达到了我的需要，谢谢！
另外再问一下，如果是只保留这3列呢？该怎么弄？考虑到如果要删除的 ...

If Cells(1, i) = "标题1" Or Cells(1, i) = "标题1" Then把這裏面的等號改成<>啊

noputon

HSIAOQIANG 发表于 2023-4-7 00:13
If Cells(1, i) = "标题1" Or Cells(1, i) = "标题1" Then把這裏面的等號改成啊

为什么用两次这个语句：
Cells(1, i) = "标题1"

noputon

全党 发表于 2023-4-6 21:33
Sub shishi()
Excel.Application.DisplayAlerts = False
cn = Cells(1, Columns.Count).End(xlToLeft).Co ...

为什么用两次这个语句？看不懂。
Cells(1, i) = "标题1"

chxw68

参与一下。

全党

noputon 发表于 2023-4-11 20:29
为什么用两次这个语句？看不懂。
Cells(1, i) = "标题1"

复制的，没有改，改成标题二，如果有更多条件你可以继续添加。