列内の空でないセルを連続番号で塗りつぶすVBA

Question

私は仕事をより簡単にするためにVBAを学び始めました。残念ながら、私は解決したい問題の適切な解決策を見つけることができません。

私はA4セルから始まるA列の数字を持っています。

この列に記入する必要があります。

最後の空白セルです。行の量は変更できます。

これは望ましい出力

で入力

を表示するには、このスクリーンショットを参照してください誰かがこれで私を助けていただけますか？

ありがとうございます。

Answer 1

このような意味ですか？

Sub Test1() 
For Each cell In Range(Cells(4, 1), Cells(1048576, 1)) 
    i = i + 1 
    If cell <> vbNullString Then 
     Cells(3 + i, 1) = i 
    Else 
     Exit For 
    End If 
Next 
End Sub 

はまた、

Sub Test2() 
Dim i As Long, LastRow As Long 
LastRow = Range("A4").End(xlDown).Row - 3 'Alternatively LastRow = Cells(4, 1).End(xlDown).Row - 3 

For i = 1 To LastRow 
    Range("A" & 3 + i) = i    'Alternatively Cells(3 + i, 1) = i 
Next i 

End Sub