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