Excel VBA スニペット

ワークシートの削除

'「abc」シートを削除 Application.DisplayAlerts = False Worksheets("abc").Delete Application.DisplayAlerts = True

ワークシートのコピー

'Sheet1シートの前に「data」シートをコピー Worksheets("data").Copy Before:=Worksheets("Sheet1")

ワークシート追加

'アクティブシートの一つ前にシートを追加 Worksheets.Add '先頭に追加 Worksheets.Add Before:=Sheets(1) '末尾に追加 Worksheets.Add After:=Sheets(Workshee...

シート操作の「並べ替え」

’並べ替え Range("セル範囲").Sort _    Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYesRange.Sort(Key1, Order1, Key2, Type, ...

重複データの削除

' 重複データの削除 指定列 1列名 Range("セル範囲").RemoveDuplicates Columns:=1, Header:=xlNo ' 重複データの削除 指定列 複数 Range("セル範囲").RemoveDuplica...

最後の「_」より後の文字を取り出す

'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*'★ 最後の「_」より後の文字を取り出す'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*...

最初の「_」より後ろの文字列を取り出す

'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*'★ 最初の「_」より後ろの文字列を取り出す'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*...

ファイルパス・ファイル名から拡張子のみを取り出す

'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*'★ ファイルパス・ファイル名から拡張子のみを取り出す'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-...

ファイル名から拡張子なしのファイル名の取り出す

'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*'★ ファイル名から拡張子なしのファイル名の取り出す'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*...

ファイルパスからファイル名(拡張子あり)を取り出す

'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*'★ ファイルパスからファイル名(拡張子あり)を取り出す'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*...