1ãæå¼excel
2ãç¹å»è§å¾é项å¡ï¼ç¹å»å®
3ãè¾å
¥å ç²ï¼ç¹å»å建æé®
4ãå¨å¼¹åºçªå£ä¸è¾å
¥å¦ä¸ä»£ç ï¼
Sub å ç²()
With ActiveSheet
For Each c In Range("A1:A12")
With c
cv = .Value
i = InStr(1, cv, "å ç²", 1)
.Characters(i, 2).Font.Bold = True
End With
Next
End With
End Sub
//代ç ç»æ
å
¶ä¸
1ï¼With ActiveSheet表示å½åæ´»å¨è¡¨æ ¼
2ï¼For Each c In Range("A1:A12")ä¸"A1:A12"表示å ç²æåçèå´
3ï¼ i = InStr(1, cv, "å ç²", 1) ä¸"å ç²"为éè¦å ç²çæå
4ï¼Characters(i, 2).Font.Bold = Trueä¸â(i, 2).â表示å ç²æåçå符æ°
5ï¼With c.......End With å¯éå¤å¤æ¬¡ï¼åå«å ç²ä¸åçæå
ç¼è¾å®æåå
³éçªå£
5ãç¹å»å®æé®ï¼éæ©å ç²ï¼ç¹å»æ§è¡æé®
6ãå¯ä»¥çå°éè¦å éçæåå·²ç»è¢«å ç²
温馨提示:答案为网友推荐,仅供参考