使用vba为excel文字添加下划线

最新推荐文章于 2025-11-28 16:42:25 发布

原创最新推荐文章于 2025-11-28 16:42:25 发布 · 1w 阅读

5 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#excel #vba #下划线

收录于

Visual Basic 专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一段VBA代码，该代码能够遍历指定工作表中的单元格，并检查每个单元格中长度为3的字符串是否符合条件：前三个字符必须是'b'、'A'、'B'或'C'中的任意组合。如果满足条件，则这段代码将为这些字符添加下划线样式。

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文字添加下划线，示例代码