发布网友
发布时间:2022-05-06 12:42
共2个回答
热心网友
时间:2022-06-30 14:13
热心网友
时间:2022-06-30 14:13
追答Sub s()
n = Cells(Rows.Count, 2).End(3).Row
For I = 1 To n
T = Cells(I, 2)
k = 1
p = InStr(k, T, ":", vbTextCompare)
Do While (p <> 0) And (k <> 0)
Cells(I, 2).Characters(k, p - k).Font.FontStyle = "加粗"
k = InStr(p, T, Chr(10), vbTextCompare)
If k Then p = InStr(k, T, ":", vbTextCompare)
Loop
Next
End Sub