Excel VBA：从变量导入求和公式显示为字符串的问题求助

问题根源 #

• 原代码用了VBA的.Cells(Row, Col)语法构建公式，但Excel工作表公式只识别单元格地址格式（如A1、B3），不识别VBA对象引用。
• 公式字符串被错误嵌套了额外双引号，导致Excel将其判定为文本字符串，而非可执行公式。

修正后的代码 #

Sub test()
    Dim Row As Long
    Dim Col As Long
    Dim strFormula As String
    
    With ThisWorkbook.Worksheets("Sheet1")
        ' 遍历列
        For Col = 1 To 3
            strFormula = ""
            ' 遍历行
            For Row = 1 To 5
                ' 判断单元格是否为指定绿色
                If .Cells(Row, Col).Interior.Color = 9359529 Then
                    ' 收集符合条件的单元格地址
                    If strFormula = "" Then
                        strFormula = .Cells(Row, Col).Address
                    Else
                        strFormula = strFormula & "," & .Cells(Row, Col).Address
                    End If
                End If
            Next Row
            
            ' 生成完整求和公式并写入单元格
            If strFormula <> "" Then
                .Cells(7, Col).Formula = "=SUM(" & strFormula & ")"
            End If
        Next Col
    End With
End Sub

修改说明 #

1. 替换为单元格地址：用.Cells(Row, Col).Address获取Excel公式能识别的A1格式地址，替代VBA的对象引用语法。
2. 移除多余双引号：直接构建纯公式字符串，赋值给.Formula属性时，Excel会自动识别为可执行公式。
3. 简化拼接逻辑：先收集所有目标单元格地址，最后统一拼接成=SUM(...)格式，代码更简洁高效。

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