excel - For If 语句

Question

我的 For If 语句有问题。场景是，我需要用电话号码填充空单元格。我已经编写了一个代码，它可以工作，但在某些时候它会在两者之间停止。有时一直到最后一行的末尾，或者只是跳过几个单元格并再次继续。我真的不确定这个奇怪的问题，希望有人能给我一个见解。我还附上了结果的快照。
我的代码如下所示:-

    Dim pn As Range
    Dim h As Integer, phone As Integer
    lastrow = Range("A" & Rows.Count).End(xlUp).Row
    
    Set pn = Range("AE2:AE" & lastrow)
    h = 1

    For phone = 1 To pn.Rows.Count
       If pn.Cells(h) = "" Then
         pn.Cells(h) = "03-33422828"
       Else
         h = h + 1
       End If
    Next

Answer 1

另一种方法是选择该范围内所有使用的单元格，然后用一个值填充所有空白单元格。
例如，如果我们有一个包含 A 列数据的工作簿，并且我们想用“---”填充该列中的空白单元格，我们可以这样做:

On Error Resume Next
Range("A1:A" & ActiveSheet.UsedRange.Rows.Count). _
  SpecialCells(xlCellTypeBlanks).Value = "---"
On Error GoTo 0

如果没有空白单元格，VBA 将生成错误，因此我通过忽略任何错误来“处理”该错误。

对你来说，它更像是:

On Error Resume Next
Range("AE1:AE" & ActiveSheet.UsedRange.Rows.Count). _
  SpecialCells(xlCellTypeBlanks).Value = "03-33422828"
On Error GoTo 0