如何将适用于单个单元格的宏应用到多个独立指定单元格？

针对你的需求，核心思路是逐个遍历目标单元格列表，对每个单元格单独执行求和逻辑，而不是把它们当成一个区域批量处理。这样就能避免之前用区域名称导致所有单元格得到相同求和结果的问题。

步骤1：重构你的宏代码 #

假设你原来的宏是根据工作表名称对特定单元格求和，下面是调整后的代码，专门适配H12、N12、H33、N33这些独立单元格：

Sub SumBySheetNameForTargets()
    Dim targetCells As Variant
    Dim cellAddr As Variant
    Dim ws As Worksheet
    Dim total As Double
    
    ' 1. 定义需要处理的独立单元格地址列表
    ' 可以随时添加/修改这里的单元格地址
    targetCells = Array("H12", "N12", "H33", "N33")
    
    ' 2. 遍历每个目标单元格，单独处理
    For Each cellAddr In targetCells
        total = 0 ' 每次处理新单元格前重置总和，避免累计
        
        ' 3. 你的核心求和逻辑（根据实际需求调整）
        ' 示例：对所有名称包含"Data"的工作表，求和与目标单元格相同位置的单元格
        For Each ws In ThisWorkbook.Worksheets
            If InStr(ws.Name, "Data") > 0 Then
                ' 关键：用cellAddr匹配每个工作表的对应位置
                total = total + ws.Range(cellAddr).Value
            End If
        Next ws
        
        ' 4. 将计算结果写入当前目标单元格
        ThisWorkbook.ActiveSheet.Range(cellAddr).Value = total
    Next cellAddr
End Sub

关键细节说明 #

• 独立单元格列表：用Array存储目标地址，灵活度很高，后续要加新单元格直接修改数组即可
• 重置总和：每次循环处理新单元格时必须重置total，否则会把之前单元格的求和结果累计到下一个
• 位置匹配求和：如果你的需求是“每个目标单元格对应求和所有工作表中相同位置的单元格”，代码里的ws.Range(cellAddr)刚好实现这个逻辑；如果你的求和逻辑是固定某个单元格（比如所有工作表的B5），直接把这部分改成ws.Range("B5")即可

为什么之前用区域名称不行？ #

当你用区域名称（比如Range("MyRange").Value = total）时，VBA会把同一个total值批量赋值给区域内的所有单元格，而没有为每个单元格单独执行求和逻辑。通过逐个遍历单元格，我们能确保每个位置都独立计算自己的结果。

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