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

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不可靠;使用End(xlUp)查找最后一行
• 不需要AutoFill，您可以应用NumberFormat并写入Value到整个范围。
• 无需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

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