4个回答
展开全部
楼主的资料看不全,所以
先按全部A列的写了代码,楼主看看吧
另外条件格式好像只能针对单元格吧
Sub 变色()
Dim ARR符号
ARR符号 = Array("……", "!", "、")
符号 = Join(ARR符号, " ")
For B = 1 To Range("A65536").End(xlUp).Row
For A = 1 To Len(Cells(B, 1))
If InStr(1, 符号, Mid(Cells(B, 1), A, 1)) > 0 Then
Cells(B, 1).Characters(Start:=A, Length:=1).Font.Color = -16776961
Else
End If
Next A
Next B
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
可以用条件格式实现 楼上的正解
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
对的,条件格式解决很快
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询