Excel VBA判断单元格字符下划线格式异常问题求助

问题根源 #

你的IsUnderlined函数硬编码了Range("A1")，不管哪个单元格调用自定义函数，都只会检查A1单元格的字符格式，完全不符合需求。同时FindUnderlinedChar调用IsUnderlined时没有传递当前处理的单元格，导致格式判断完全错误。

修改后的完整VBA代码 #

Function GetUnderlinedText(inputText As String) As String
    Dim cell As Range
    Dim underlinedCharIndex As Long
    Dim underlinedText As String

    ' 获取调用函数的单元格引用
    Set cell = Application.Caller

    ' 查找第一个带单下划线的字符位置，传入单元格引用
    underlinedCharIndex = FindUnderlinedChar(cell, inputText)

    ' 根据结果返回对应字符串
    If underlinedCharIndex > 0 Then
        underlinedText = Mid(inputText, underlinedCharIndex)
    Else
        underlinedText = inputText
    End If

    GetUnderlinedText = underlinedText
End Function

Function FindUnderlinedChar(cell As Range, inputText As String) As Long
    Dim i As Long

    ' 遍历单元格内的每个字符
    For i = 1 To Len(inputText)
        ' 检查当前位置字符是否带单下划线
        If IsUnderlined(cell, i) Then
            FindUnderlinedChar = i
            Exit Function
        End If
    Next i

    ' 未找到带下划线的字符，返回0
    FindUnderlinedChar = 0
End Function

Function IsUnderlined(cell As Range, position As Long) As Boolean
    ' 检查指定单元格中对应位置的字符是否为单下划线格式
    IsUnderlined = (cell.Characters(position, 1).Font.Underline = xlUnderlineStyleSingle)
End Function

关键修改点 #

1. 传递单元格引用：给FindUnderlinedChar和IsUnderlined增加cell As Range参数，确保每次判断的是调用函数的目标单元格，而非固定的A1。
2. 简化判断逻辑：IsUnderlined直接返回布尔判断结果，避免冗余的If-Else结构。
3. 修正调用链路：在GetUnderlinedText调用FindUnderlinedChar时传入当前单元格，打通格式判断的正确路径。

内容的提问来源于stack exchange，提问作者user24612418