Question

如何批量替换单元格内部分文字的格式

比如我想把“替换”的“换”的格式变成“红色，下划线”。如图1
再点击全部替换。结果却如图2
我想知道，如何设置替换才会从图1变成图3的效果？？?只更换单元格内部分的文字，而不是全部单元格内的文字





Answer 1

直接用查找替换的话改变的是整个单元格的格式，想改变部分文字的话需要用VBA来实现。下面给你一段VBA代码，自己根据要调整的格式再改下

Sub changeStyle() '【注意】Excel中，Alt+F11，插入，模块，粘贴这段代码，然后F5

For Each Rng In ActiveSheet.UsedRange

For i = 1 To Len(Rng)

Dim mystr As String

mystr = "替" '这里是要改变格式的字

s = InStr(i, Rng, mystr)

If s > 0 Then

With Rng.Characters(Start:=s, Length:=1).Font

.Underline = xlUnderlineStyleDouble  '格式改为双下划线

.Color = RGB(255, 0, 0)    '颜色改为红色

End With

Else

Exit For

End If

Next i

Next

End Sub