Excel VBA中：细胞填充到无穷

Question

我有以下VBA代码在ActiveX按钮：

Private Sub CommandButton1_Click() 

Dim rng as Range 

Set rng = Sheets("Declines").Range("H:H") 
Sheets("Declines").Activate 
rng.Select 
Selection.Replace What:="", Replacement:="0" 

End Sub 

什么是基本上不是填充空白单元格在H柱，用“0”，但问题是，一直到100000.

我希望它停止填充时，它到达相邻单元格的最后一个值，而不是一直下降。如果有人能帮忙，我将非常感激。

让我知道是否需要进一步澄清。谢谢。

Answer 1

试试这个：

Sheets("Declines").Range("H1:H" & sheets("Declines").Usedrange.rows.count).Replace What:="", Replacement:="0"