【VBA】該当する文字列がある列を削除したい。

質問

指定した文字列を検索して、そのセルのある列削除したいです。

例えば2行目に、表の項目として「社名、フリガナ、住所、電話番号、備考、・・・」
と、あるときに、フリガナと電話番号の列を削除させたいのです。

シートによって項目の位置が若干変わる為、列番号を指定して削除するようなことは出来ません。
項目の名前が変わることはありません。

vbaでどのようにすればよいのでしょうか。

また、2行目の範囲で文字列を検索して、該当する文字列があるセルの位置情報を
取得したい場合はどうすれば良いでしょうか？

宜しくお願いします。

回答No.3

imogasi

（１）総なめのIF文で聞く方法
（２）Findメソッド
が回答に出ているので
（３）Match関数法を挙げます
Sub test01()
c = Application.WorksheetFunction.Match("フリガナ", Range("A1:IV1"), 0)
MsgBox c
End Sub
E1に「フリガナ」という見出しがあるとき、５と表示され、第５列であることが捉えられます。
ーー
見つからない場合がある場合は
Sub test01()
On Error GoTo er1
c = Application.WorksheetFunction.Match("フリガナ", Range("A1:IV1"), 0)
MsgBox c
Exit Sub
er1: MsgBox "見つかりません"
End Sub

回答No.2

keirika

Sub Sample()

Dim i As Integer

For i = 1 To 256
If Cells(2, i) = "フリガナ" Or Cells(2, i) = "電話番号" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

End Sub

でどうでしょう

回答No.1

merlionXX

削除は

Sub test01()
Dim ar
ar = Split("フリガナ、電話番号", "、")
For i = LBound(ar) To UBound(ar)
Rows("2:2").Find(What:=ar(i), LookIn:=xlValues).EntireColumn.Delete
Next
End Sub

"フリガナ、電話番号"の部分を”、”で区切って増やせばいくつでも対象を増やせますよ。

削除せず、アドレスの取得なら

Sub test02()
Dim ar
ar = Split("フリガナ、電話番号", "、")
For i = LBound(ar) To UBound(ar)
MsgBox Rows("2:2").Find(What:=ar(i), LookIn:=xlValues).Address
Next
End Sub