自动填充范围到最后使用的行

Question

我在单元格 G1 中有 0，需要自动填充 0 直到最后使用的行。

在下面的代码中，0 会更新到第 30 行，而我的行只填充到第 4 行。

我希望只有在相邻行中有数据时才填充 0。

NumberConv 是我工作簿中的 Sheet2。

Sub MacroNC

    Sheets("NumberConv").Select
    Range("G1").Select
    Selection.NumberFormat = "@"
    ActiveCell.FormulaR1C1 = "0"
    
    Sheet2.Select
    Range("G1").Select
    lastRow = ActiveSheet.UsedRange.Rows.Count
    Selection.AutoFill Destination:=Range("G1:G" & lastRow), Type:=xlFillCopy

End Sub

Answer 1

• UsedRange is unreliable;使用End(xlUp) 查找最后一行。
• 无需AutoFill，您可以应用NumberFormat 并将Value 写入整个范围。
• No Need to Select.

Sub MacroNC
    With Sheet2
        Dim lastRow As Long
        lastRow = .Cells(.Rows.Count, "F").End(xlUp).Row

        .Range("G1:G" & lastRow).NumberFormat = "@"
        .Range("G1:G" & lastRow).Value = 0
    End With
End Sub

• 旁注：不清楚为什么需要将零存储为文本。