如果单元格为空，则不进行任何更改

Question

如果电话号码没有区号，我正在尝试格式化电话号码以添加区号。我使用了一个大范围，因为行数是可变的。

该代码运行，但它也将64添加到空白单元格中。

我如何才能做到这一点，使更改仅应用于有数据的单元格，或者可能是一个我基本上可以说"但如果单元格为空，则不进行更改"的语句？

Sub Change_Mobile_Format()
For Each r In Range("D2:D1000")
If Not (Left(r.Value, 2) = "64") Then
r.Value = "64" & r.Value
End If
Next r
End Sub

Answer 1

好问题，尽管这是一个很容易在网上找到答案的问题。我相信也有人问过类似的问题。见下文，r.value <> ""。

<>表示不相等。

For Each r In Range("D2:D1000")
If Left(r.Value, 2) <> "64" and r.value <> "" Then
r.Value = "64" & r.Value
End If
Next r
End Sub

我鼓励您考虑在数组中进行数据修改，以大大加快代码的速度。如果你决定尝试，遇到问题就回来吧！