使用序号VBA

Question

我刚刚开始学习VBA，以便让我在办公室工作更轻松。不幸的是，我无法找到解决问题的正确方法。

我在A列中有一个从A4格开始的数字。

我需要用随后的数字填写此专栏。

结束是第一个空白单元格。行数可以改变。

请参阅此屏幕截图以查看输入

这是一个理想的输出

有人可以帮帮我吗？

谢谢。

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