Question

我目前正在使用一段VBA代码自动填充报告C列中的空白单元格。唯一的事情是它将自动填充数据集的末尾。（此报告中有几列数据。）为了停止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"))

到

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

阻止Excel自动填充行

1 个答案: