Excel宏仅填充所需的细胞

Question

我目前正在使用一块vba代码来自动填充我的报告列中的空白单元。唯一的事情是它将自动填充我的数据集的末尾。（本报告中有几列数据列。）为了停止VBA代码，我将范围设置为C1500。如果宏一旦没有数据到达行，我会自动停止，我更喜欢它。有人知道如何更改我的代码来完成此操作吗？

Sub Macro1()
    mynumber = 1
    Dim r As Range, cell As Range
    Set r = Range(Range("C2"), Range("C1500"))
    For Each cell In r
        If cell.Value = OK Then cell.Value = mynumber
        mynumber = mynumber + 1
    Next
End Sub

Answer 1

更改

Set r = Range(Range("C2"), Range("C1500"))

to

Set r = Range(Range("C2"), Range("C" & Cells(Rows.Count, "C").End(xlUp).Row))