For文とIf文を使って最後の行にデータを追加する【VBA】

ボタンを押す毎にB1、B2、B3…に、1、2、3…と数字が加算されていくプログラムを作る。

For i = 1 To Sheets("Sheet1").Range("B10000").End(xlUp).Row + 1

.End(xlUp).Rowはショートカットキー Ctrl + ↑ と同じ意味を持つ。

1行目から、Sheet1のB10000から一番近い行+1行下のセル、まで繰り返す。

Sub 行追加()
Dim i
    For i = 1 To Sheets("Sheet1").Range("B10000").End(xlUp).Row + 1
        If Sheets("Sheet1").Range("B" & i).Value = "" Then
            Sheets("Sheet1").Range("B" & i).Value = i
        End If
    Next
End Sub

If文で指定したセルが空白だったら、そのセルにデータを入れる。

最後の行に値を追加したい場合はFor文とIf文はセットで扱う。