vba - VBA 中的 SUMIFS 公式与 "<"

Question

请你告诉我我的倒数第二个有什么问题SUMIFS我使用的公式" < " &$F$1 .在所有单元格中返回的所有内容都是 FALSE。没有 < 的最后一个 SUMIFS 工作正常。

Sub SumGroups()

Worksheets("Database").Activate
Dim lastCode, lastFiltCode As Integer
Dim Formula As String

'Determine Last Row in Column O (Unfiltered Codes)
lastCode = Range("O" & Rows.Count).End(xlUp).Row

'Filter Unique Codes into Column A Sheet2
Range("O1:O" & lastCode).AdvancedFilter Action:=xlFilterCopy, _
      CopyToRange:=Sheet2.Range("A1"), Unique:=True
'Determine last Row in Column A (Filtered Codes)
Worksheets("Sheet2").Activate
lastFiltCode = Sheet2.Range("A" & Rows.Count).End(xlUp).Row

'Place SUMIF Formulas in Columns Sheet2    
Worksheets("Sheet2").Range("B2:B" & lastFiltCode).Formula = _
"=SUMIFS(Database!$M$2:$M$" & lastCode & ",Database!$O$2:$O$" & lastCode & ",A2)"
Worksheets("Sheet2").Range("D2:D" & lastFiltCode).Formula = _
"=SUMIFS(Database!$M$2:$M$" & lastCode & ",Database!$O$2:$O$" & lastCode & ",A2,Database!$I$2:$I$" & lastCode & "," < " &$F$1)"
 Worksheets("Sheet2").Range("F2:F" & lastFiltCode).Formula = _
"=SUMIFS(Database!$M$2:$M$" & lastCode & ",Database!$O$2:$O$" & lastCode & ",A2,Database!$I$2:$I$" & lastCode & ",$F$1)"

End Sub

Answer 1

只是为了澄清为什么其他答案有效:

SumIfs(以及需要字符串运算符(例如 CountIf)的各种其他 Excel 函数)期望逻辑运算符及其以下语句表示为字符串。即应包含在语音标记中，例如“myString”。

因为公式也是一个字符串，例如ActiveCell.Formula = "=If(A1=3, 1, 0)"编译器对哪一组引号表示字符串感到困惑。因此，例如这将不起作用:ActiveCell.Formula = "=If(A1=3, "Yes", "No")" .

从技术上讲，处理这种情况的方法是将所需的引号括在它自己的引号中； """ myValue """ .

然而，这很快变得令人困惑。相反，请使用 Character函数返回您需要的字符。在这种情况下 34; chr(34) & myvalue & (chr34) .