如何用VBA统计Excel单元格区域中非斜体的行数？

你的判断完全正确，Split拆分后得到的是纯文本字符串，根本不包含字体格式属性，所以原代码无法正常运行。要实现统计单元格内非斜体行数的需求，得直接操作单元格的Characters对象，逐行检查格式，具体实现如下：

Function CountNonItalic(Sel As Range) As Long
    Dim cell As Range
    Dim lineStart As Long, lineEnd As Long
    Dim totalCount As Long
    Dim i As Long
    
    totalCount = 0
    
    ' 遍历选中区域的每个单元格
    For Each cell In Sel
        If cell.Value <> "" Then
            lineStart = 1
            ' 遍历单元格内的每个字符，定位换行符
            For i = 1 To cell.Characters.Count
                ' 碰到换行符（Chr(10)），说明到了一行的结尾
                If cell.Characters(i, 1).Text = Chr(10) Then
                    lineEnd = i - 1
                    ' 检查当前行是否非斜体
                    If Not cell.Characters(lineStart, lineEnd - lineStart + 1).Font.Italic Then
                        totalCount = totalCount + 1
                    End If
                    lineStart = i + 1
                End If
            Next i
            
            ' 处理最后一行（单元格末尾没有换行符的情况）
            If lineStart <= cell.Characters.Count Then
                If Not cell.Characters(lineStart, cell.Characters.Count - lineStart + 1).Font.Italic Then
                    totalCount = totalCount + 1
                End If
            End If
        End If
    Next cell
    
    CountNonItalic = totalCount
End Function

代码说明 #

• 直接通过cell.Characters访问单元格内的字符及对应格式，彻底避免格式信息丢失
• 遍历字符定位Chr(10)换行符，精准拆分出每一行的起始和结束位置
• 对每一行的字符范围检查Font.Italic属性，Not关键字用于统计非斜体的行
• 单独处理单元格最后一行（因为最后一行末尾通常没有换行符，需要单独判断）

使用方法 #

在Excel单元格中输入=CountNonItalic(目标区域)即可，比如=CountNonItalic(A1:C3)，就能得到指定区域内所有非斜体行数的总和。

内容的提问来源于stack exchange，提问作者dark-walrus