【VBA】マクロで特定の列を移動させてみた

エクセルのマクロを利用して特定の列を移動させてみました。

特定の列を移動させる

以下のマクロで列を移動させることが可能です。

Sub MoveColumn()
    ' ソース列とターゲット列の列番号を指定
    Dim srcColumn As Integer
    Dim tgtColumn As Integer
    
    srcColumn = 1 ' 例: A列
    tgtColumn = 7 ' 例: G列
    
    ' 最終行を取得
    Dim lastColumn As Long
    lastColumn = Cells(Rows.Count, srcColumn).End(xlUp).Row
    
    ' ソース列のデータをターゲット列に移動
    Range(Cells(1, srcColumn), Cells(lastColumn, srcColumn)).Cut Destination:=Cells(1, tgtColumn)
End Sub