Excel VBA：单元格填充到无穷大答案

【问题标题】：Excel VBA: Cell populating to infinityExcel VBA：单元格填充到无穷大
【发布时间】：2017-11-19 04:27:10
【问题描述】：

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

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

基本上是用“0”填充H列中的空白单元格，但问题是ti一直到100000。

我希望它在达到相邻单元格的最后一个值时停止填充，而不是一直向下填充。如果有人可以提供帮助，我将不胜感激。

如果需要进一步说明，请告诉我。谢谢。

【问题讨论】：

标签： vba cell activex populate

【解决方案1】：

试试这个：

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

【讨论】：

恐怕也是这样。