如果下划线，则自动在单元格中添加文本

Question

如果单元格中的文字是下划线，我想在单元格中自动添加文本。

这里的例子是带下划线的文字

Happy
Sad
Good
Best

到

xHappy
xSad
xGood
xBest

Answer 1

尝试以下子项：

Sub AddTextUnderline()
    For Each cel In Range("A1:A4")
        If cel.Font.Underline = xlUnderlineStyleSingle Then
            cel.Value = "x" & cel.Value
        End If
    Next
End Sub