含Alt代码0164货币符号时脚本陷入无限循环的解决求助

问题原因 #

Word表格里的“空单元格”并非真正的空字符串，默认会包含段落标记（Chr(13)，即vbCr）和单元格结束符（Chr(7)），所以直接用Selection.Text = ""或ChrW(0)无法匹配，导致判断失效、循环无法跳出。

解决方案 #

1. 准确判断空单元格并跳过 #

遍历表格行时，先处理单元格文本的不可见字符，再判断是否为空，然后跳过该行：

Dim oRow As Row
Dim cellText As String

For Each oRow In ActiveDocument.Tables(1).Rows
    ' 获取单元格文本，移除末尾的段落标记和单元格结束符
    cellText = Left(oRow.Cells(1).Range.Text, Len(oRow.Cells(1).Range.Text) - 2)
    
    ' 判断是否为空（含全空格的情况）
    If Trim(cellText) = "" Then
        GoTo NextRow ' 跳过当前行，继续下一行循环
    End If
    
    ' 你的原有判断逻辑
    If cellText Like "* [aAwWzZiIoOuUVQ] *" Then
        ' 这里写你要执行的操作代码
    End If
NextRow:
Next oRow

2. 强制退出整个循环 #

如果需要遇到空行时直接终止整个For Next循环，把GoTo NextRow换成Exit For即可：

If Trim(cellText) = "" Then
    Exit For ' 直接终止循环
End If

3. 避免使用Selection（更稳定的写法） #

依赖Selection容易出现选中状态异常的问题，直接操作单元格Range能提高脚本稳定性，上面的代码已经采用了这种方式。如果你的脚本是基于选中区域遍历，可调整为：

Dim cell As Cell
Dim cellText As String

For Each cell In Selection.Cells
    cellText = Left(cell.Range.Text, Len(cell.Range.Text) - 2)
    If Trim(cellText) = "" Then
        GoTo NextCell
    End If
    
    If cellText Like "* [aAwWzZiIoOuUVQ] *" Then
        ' 执行操作
    End If
NextCell:
Next cell

内容的提问来源于stack exchange，提问作者Piotr B