|
こんばんは。
1行目に項目名がA列から入っているとして、その項目名と消したくない項目名が
一致しない列を削除します。
Sub test()
Dim rngFind As Range
Dim rngLoop As Range
For Each rngLoop In Range("A1", Cells(Columns.Count).End(xlToLeft))
Select Case rngLoop.Value
Case "col1", "col3", "col4", "col8" '←とりあえず 消したくない項目名を羅列
Case Else
If rngFind Is Nothing Then
Set rngFind = rngLoop
Else
Set rngFind = Union(rngFind, rngLoop)
End If
End Select
Next rngLoop
If Not rngFind Is Nothing Then
rngFind.EntireColumn.Delete Shift:=xlToLeft
Set rngFind = Nothing
End If
End Sub
|
|