Sub city()
Dim a As String
Dim b1 As String
Dim b2 As String
Dim b3 As String
For i = 2 To 45
For j = 2 To 13
a = Worksheets("city").Cells(i, j)
b1 = Mid(a, 1, 1)
If (b1 = "b" Or b1 = "A" Or b1 = "B" Or b1 = "C") Then
b2 = Mid(a, 2, 1)
If (b2 = "b" Or b2 = "A" Or b2 = "B" Or b2 = "C") Then
b3 = Mid(a, 3, 1)
If (b3 = "b" Or b3 = "A" Or b3 = "B" Or b3 = "C") Then
Worksheets("city").Cells(i, j).Characters(1, 3).Font.Underline = xlUnderlineStyleSingle
End If
End If
End If
Next j
Next i
End Sub
使用vba为excel文字添加下划线,示例代码