【ExcelVBA】列追加マクロ

はじめに

ExcelVBAを使って、列追加処理を自動化するソースコードを実装しました

列追加前のデータ

列追加前のデータは下記の画像です。

実装したソースコード

実装したソースコードは下記です。

Sub add_col()
    'ワークシートインスタンス変数
    Dim ws As Worksheet
    'シート名変数
    Dim sheet_name As String
    '追加する行変数
    Dim add_col_n As Integer
    '開始回数、終了回数変数
    Dim start_num, end_num As Integer
    'カウント変数
    Dim i As Integer
    'シート名変数をセット
    sheet_name = "member"
    'ワークシートインスタンスをセット
    Set ws = ThisWorkbook.Worksheets(sheet_name)
    '追加する列番号、開始番号、終了番号をセット
    add_col_n = 4
    start_num = 1
    end_num = 3
    
    '3列追加する
    For i = start_num To end_num
        '列を追加する
        ws.Columns(add_col_n).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Next i
    
    '保存する
    ThisWorkbook.Save
   
End Sub

実行した結果

実行後の列追加した結果が以下の画像です。

最後に

列追加について記事にしました。