対象ブックが存在するか確認（Dir利用)
'ブック確認Sub 対象ブックが存在するか確認_D() Dim filePath As String filePath = "C:\Sample\Book1.xlsx" If Dir(filePath) <> "" Then Debug.P...
Excel VBA スニペット
対象ブックが存在するか確認（ファイルオブジェクト)
Sub 対象ブックが存在するか確認_Fso() Dim fso As Object Dim filePath As String filePath = "C:\Sample\Book1.xlsx" Set fso = CreateObjec...
シート存在確認
Sub シートの存在確認() Dim ws As Worksheet Dim flag As Boolean For Each ws In Worksheets If ws.Name = "〇〇" Then flag = True End ...
ブックが開かれているか確認
Sub ブックが開いているか確認() Dim wb As Workbook Dim flag As Boolean For Each wb In Workbooks If wb.Name = "Book1.xlsx" Then flag =...
ワークシートの移動
'「temp」シートを末尾に移動 Worksheets("temp").Move after:=Worksheets(Worksheets.Count)
ワークシートの削除
'「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...