VBA Excel自动求和数据复制至指定单元格问题咨询

你遇到的返回false问题，本质是依赖活动工作表的隐式引用导致的。比如直接调用Application.Sum(Range("X:Y"))时，VBA会默认使用当前ActiveSheet的范围，而非你实际要计算的目标工作表。如果目标工作表未激活，这种隐式引用会指向错误的上下文，导致求和逻辑失效，返回False（或抛出错误）。

另外，若使用WorksheetFunction.Sum但目标范围无有效数值，会直接触发运行时错误；而Application.Sum在这种场景下会返回0，但如果范围引用本身错误（比如指向不存在的工作表），就会返回False。

要把求和值放到SUMMARY表对应代码的E列单元格，核心是先定位代码所在行，再写入数值。

以下是针对你的需求优化后的代码片段，解决上述两个问题：

Sub SearchFolders()
    Dim wsSummary As Worksheet
    Dim searchCode As String
    Dim targetFolder As String
    Dim wb As Workbook
    Dim targetWs As Worksheet
    Dim total As Double
    Dim codeRow As Range
    
    ' 初始化汇总工作表对象（明确引用，不依赖ActiveSheet）
    Set wsSummary = ThisWorkbook.Sheets("SUMMARY")
    searchCode = "4008" ' 可替换为动态输入的代码
    targetFolder = "C:\YourTargetFolder\" ' 替换为你的目标目录
    
    ' 遍历目录下的工作簿
    Dim fileName As String
    fileName = Dir(targetFolder & "*.xlsx")
    Do While fileName <> ""
        Set wb = Workbooks.Open(targetFolder & fileName, ReadOnly:=True)
        Set targetWs = wb.Sheets("目标工作表名") ' 替换为你要搜索的工作表名
        
        ' 1. 明确指定工作表范围求和，不依赖ActiveSheet
        total = Application.Sum(targetWs.Range("B2:B100")) ' 替换为实际求和范围
        
        ' 2. 定位SUMMARY表中对应代码的行
        Set codeRow = wsSummary.Columns("A").Find( _
            What:=searchCode, _
            LookIn:=xlValues, _
            LookAt:=xlWhole, _
            MatchCase:=False)
        
        ' 如果找到对应代码，写入E列对应行
        If Not codeRow Is Nothing Then
            wsSummary.Cells(codeRow.Row, "E").Value = total
        End If
        
        wb.Close SaveChanges:=False
        fileName = Dir()
    Loop
End Sub

• 明确工作表引用：所有范围调用都加上工作表对象前缀（如targetWs.Range、wsSummary.Cells），彻底摆脱对ActiveSheet的依赖。
• 可靠的行定位：用Range.Find方法精准匹配代码，确保求和值写入正确行；同时增加If Not codeRow Is Nothing的判断，避免找不到代码时出错。
• 容错性求和：用Application.Sum替代WorksheetFunction.Sum，当求和范围无有效数值时返回0而非触发错误，提升宏的稳定性。

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