VBAでよく使うコードまとめ
ブック操作
既存のワークブックを開く
Dir_file = "C:\Users\○○" Workbooks.Open Dir_file & "\" & File_name & ".xlsx"
ブックを変数化
Workbooks(○○ & ".xlsx").Activate Dim wb As Workbook Set wb = ActiveWorkbook
新しいブックを追加して、それを変数化
Dim wb As Workbook Set wb = Workbooks.Add
新しいシートを「一番最後に」追加して、それを変数化、名前を変更
Dim ws As Worksheet Set ws = Worksheets.Add(After:=Sheets(Sheets.Count)) ws.Name = market
既存のシートを変数化
wb.Worksheets(”〇〇”).Activate Dim ws As Worksheet Set ws = ActiveSheet
シート操作
対象シートの最後の行数を取得
Max_row = ws.Cells(1, 1).End(xlDown).Row
シートの先頭行を固定する
ws.Activate ws.Rows(2).Select ActiveWindow.FreezePanes = True