VBA記事11. WorkSheetFunction.Match

上記の表を用意してください。

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

Sub sample11_1()

Dim x As Long

X = Aplicatin.WorksheetFunction.Match(“備考”, Rows(1), False)

Debug.Print x

Range(Cells(1,x) , Cells(1, x + 3)).EntireColum.Delete

End sub

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

下の図のように書いて実行すると、備考欄から右側が消えているのがわかります。

これは備考欄から右の３つを消す処理になっています。

また備考欄は6列目にあるので、ｘには６が入っており、イミディエイトウィンドウにも６が出力されているはずです。

Matchのカッコ内は（検出文字、検出範囲、False）になります。