【VBA】指定した列の末尾に値を追加する

例えばB列の末尾に、

簡易な記載で値を追加できます！

VBAコード
実行結果

VBAコード

ここでは例として、
　・シート「sample」のB列(＝2列目)の末尾に
　・値「aiueo」を追加
します。

Sub sample()
    
    '列を指定
    Const COLUMN As Long = 2
    '列の末尾に追加
    Worksheets("sample").Cells(Rows.Count, COLUMN).End(xlUp).Offset(RowOffset:=1) = "aiueo"
    
End Sub

「Rows.COUNT」は最大行数(＝1,048,576)を示します。

「Offset(RowOffset:=1)」によって、取得したセルの1行下の行が指定されます。

実行結果

指定した列の末尾に値を追加できました。