VBA中SUMIF匹配单元格文本时求和返回0的问题求助

问题描述 #

我想用VBA实现：当A3:A500区域的单元格包含指定文本时，对D3:D500区域对应的数量求和，结果写入I3:I6单元格，但现在所有结果都是0。

原代码如下：

Sub SUMIF()

Dim S3 As Range
Dim S3T As Range

Set S = Range("A3:A500")
Set QTY = Range("D3:D500")

Range("I3") = _
WorksheetFunction.SUMIF(S, "S3", QTY)
Range("I4") = _
WorksheetFunction.SUMIF(S, "S4", QTY)
Range("I5") = _
WorksheetFunction.SUMIF(S, "S5", QTY)
Range("I6") = _
WorksheetFunction.SUMIF(S, "S6", QTY)


End Sub

表格说明：A列（A3:A500）为类别列，包含S3、S4、S5、S6等文本；D列（D3:D500）为对应数量值；I3:I6需填入对应类别的数量求和结果。

问题原因 #

1. 匹配条件错误：原代码中用"S3"这类固定字符串作为匹配条件，VBA会将其视为精确匹配的文本。如果A列中的内容不是完全等于"S3"（比如带空格、前后缀），或者你的需求是包含该文本而非精确匹配，就会匹配不到数据，结果为0。
2. 变量使用不规范：声明了未使用的S3、S3T变量，同时使用了未声明的S、QTY变量，易引发潜在错误。

修正代码 #

根据需求选择以下两种代码：

情况1：精确匹配A列等于指定文本 #

（适用于A列内容与"S3"/"S4"完全一致的场景）

Sub SUMIF_Fix()
    Dim rngCriteria As Range
    Dim rngSumRange As Range
    Dim i As Integer
    
    ' 定义条件区域和求和区域
    Set rngCriteria = Range("A3:A500")
    Set rngSumRange = Range("D3:D500")
    
    ' 循环填充I3-I6，对应H3-H6的条件文本
    For i = 3 To 6
        Range("I" & i) = WorksheetFunction.SUMIF(rngCriteria, Range("H" & i).Value, rngSumRange)
    Next i
End Sub

情况2：匹配A列包含指定文本 #

（符合你需求中的“包含指定文本”场景，用通配符*实现模糊匹配）

Sub SUMIF_Contains_Fix()
    Dim rngCriteria As Range
    Dim rngSumRange As Range
    Dim i As Integer
    
    Set rngCriteria = Range("A3:A500")
    Set rngSumRange = Range("D3:D500")
    
    For i = 3 To 6
        ' 通配符*表示匹配任意前后字符，实现包含匹配
        Range("I" & i) = WorksheetFunction.SUMIF(rngCriteria, "*" & Range("H" & i).Value & "*", rngSumRange)
    Next i
End Sub

额外建议 #

在模块顶部添加Option Explicit语句，强制VBA检查变量声明，避免因未声明变量导致的错误。

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