Question

excel中某一字段前的下划线如何批量取消

Answer 1

假设要取消的字符为AB，代码如下：
Sub Del_line()
On Error Resume Next
Dim my_Range As Range
For Each my_Range In Worksheets(1).UsedRange
If InStr(1, my_Range.Value, "AB") > 0 Then '搜索的字符为AB，未限定位置。如果限定位置，需要更改条件。如果开始出现=1
my_Range.Characters(Start:=InStr(1, my_Range.Value, "AB"), _
Length:=2).Font.Underline = xlUnderlineStyleNone
 '选定单元格做出改动。字符长度为2
End If
Next
End Sub

Answer 2

类似？考虑用替换或者分列