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

例えばB列の末尾に、

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

PR

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行下の行が指定されます。

PR

実行結果

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

タイトルとURLをコピーしました