EXCLE中用<em>VBA</em>保留B列和D列其他列全删除-excel 删除列 vba,e

到底是删除还是清空数据？先问清楚再写代码，不想老是改呀

Option Explicit

Sub del()
    Dim urng As Range
    Dim i As Integer
    With ActiveSheet
        Set urng = .UsedRange
        For i = urng.Columns.Count To 1 Step -1
            If Chr(i + 64) <> "B" And Chr(i + 64) <> "D" Then Columns(i).Delete
        Next i
    End With
    Set urng = Nothing
End Sub

 代码是对当前工百作表产度生效果的，就是说你要问先打开你要删答除的表格内，然后执行del宏就容会删除

column（3）.clear
其中括号中的数字3代表列的序号

Sub Macro1()
Dim a, b
b = 0
a = 1
For a = a To 255 Step 0
If Cells(1, a) = "品号百度" Or Cells(1, a) = "数量版" Or Cells(1, a) = "交期权" Then
a = a + 1
Else
Columns(a).Select
Selection.Delete Shift:=xlToLeft
End If
b = b + 1
If b > 255 Then
a = 300
End If
Next a
End Sub