在同一行中，如果A列中有B列的内容，那么在A列中标红加粗重复的那个部分内容，这种在Excel怎么弄？

Question

是一行一行来的

Answer 1

Sub 包含Bstr的字段红字(ARng As Range, BStr$)
Dim AStr$, i&, j&, n&
AStr = ARng: n = Len(BStr)
ARng.Characters.Font.Color = vbBlack

j = 1
Do
i = InStr(j, AStr, BStr)
If i = 0 Then Exit Do
ARng.Characters(i, n).Font.Color = vbRed
j = i + 1
Loop
End Sub
使用这样的代码可以完成的。