VBA编程：如何实现大小写敏感的小写c开头行求和？

嘿，这个问题我碰到过好多次啦——Excel自带的AutoFilter默认是不区分大小写的，所以你原来的写法肯定会把大写C开头的行也一起算进去。给你两个实用的修改方案，你可以根据自己的场景选：

方案1：用循环+StrComp函数做大小写敏感判断 #

这种方法逻辑直观，适合数据量不是特别大的场景，直接遍历每行并严格判断开头字符：

Sub summ()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim total As Double ' 根据你实际求和的数值类型调整，比如用Integer、Long
    
    ' 绑定目标工作表
    Set ws = Worksheets("K00304.RPT")
    ' 获取A列最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    ' 初始化总和
    total = 0
    
    ' 从第14行开始遍历（和你原代码的起始范围一致）
    For i = 14 To lastRow
        ' 先判断单元格不为空，避免出错
        If Len(ws.Cells(i, 1).Value) > 0 Then
            ' 用StrComp做二进制比较（大小写敏感），判断第一个字符是否是小写c
            If StrComp(Left(ws.Cells(i, 1).Value, 1), "c", vbBinaryCompare) = 0 Then
                ' 这里假设你要对B列求和，根据实际需求修改列号
                total = total + ws.Cells(i, 2).Value
            End If
        End If
    Next i
    
    ' 将总和输出到指定单元格，示例是C1，你可以改成自己需要的位置
    ws.Cells(1, 3).Value = total
End Sub

关键说明： #

• StrComp函数的第三个参数vbBinaryCompare是核心，它会让字符串比较严格区分大小写（默认是vbTextCompare，不区分）。
• Left(单元格内容, 1)用来提取第一个字符，和小写"c"做精准匹配。

方案2：用辅助列+EXACT函数配合AutoFilter #

如果你的数据量很大，循环效率不够高，可以用Excel的EXACT函数（天生大小写敏感）生成辅助列，再通过AutoFilter筛选后求和：

Sub summ()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim total As Double
    Dim helperCol As Long ' 辅助列的列号
    
    Set ws = Worksheets("K00304.RPT")
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    ' 找到工作表中第一个空列作为辅助列
    helperCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column + 1
    
    ' 在辅助列写入大小写敏感的判断公式：判断A列第一个字符是否是小写c
    ws.Cells(14, helperCol).Formula = "=EXACT(LEFT(A14,1),""c"")"
    ' 自动填充公式到最后一行
    ws.Cells(14, helperCol).AutoFill Destination:=ws.Range(ws.Cells(14, helperCol), ws.Cells(lastRow, helperCol))
    
    ' 对A列到辅助列的范围应用筛选，筛选辅助列中值为True的行
    With ws.Range("A14", ws.Cells(lastRow, helperCol))
        .AutoFilter field:=helperCol - .Columns(1).Column + 1, Criteria1:=True
    End With
    
    ' 对可见的B列单元格求和（根据实际求和列修改）
    On Error Resume Next ' 防止没有符合条件的行导致出错
    total = Application.WorksheetFunction.Sum(ws.Range("B14:B" & lastRow).SpecialCells(xlCellTypeVisible))
    On Error GoTo 0
    
    ' 清除筛选和辅助列内容
    ws.AutoFilterMode = False
    ws.Columns(helperCol).Clear
    
    ' 输出总和到指定单元格
    ws.Cells(1, 3).Value = total
End Sub

关键说明： #

• EXACT函数会严格比较两个字符串的大小写，只有完全一致才返回True。
• 用完辅助列后记得清空，避免影响工作表的其他内容。

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