使用VBA实现仅当相邻单元格为正时对应列数据求和并粘贴至其他工作表的技术求助

嘿，我来帮你搞定这个条件求和的需求！先看你原代码的问题：定义了一堆没用到的变量，循环里只获取了相邻的P列单元格，但没做累加求和的逻辑，也没指定结果要粘贴到哪里。我给你调整出两种实用的实现方式：

方法1：VBA循环逐行判断求和 #

这种方式逻辑直观，适合需要额外处理的场景：

Sub TotalSaving()
    Dim salesWs As Worksheet
    Dim targetWs As Worksheet ' 结果要粘贴到的目标工作表，记得改成你的实际表名
    Dim lastRow As Long
    Dim sumRange As Range
    Dim cell As Range
    Dim totalAmount As Double
    
    ' 初始化工作表对象，避免重复写长引用
    Set salesWs = ThisWorkbook.Worksheets("Sales Output")
    Set targetWs = ThisWorkbook.Worksheets("目标工作表名") ' 替换成你的目标表名称
    
    ' 获取Q列最后一行的行号
    lastRow = salesWs.Cells(salesWs.Rows.Count, "Q").End(xlUp).Row
    ' 定义要循环的Q列范围（从Q6开始）
    Set sumRange = salesWs.Range("Q6:Q" & lastRow)
    
    ' 初始化求和变量
    totalAmount = 0
    
    ' 逐行判断并累加
    For Each cell In sumRange
        ' 当Q列当前单元格值为正数时，累加对应的P列值
        If cell.Value > 0 Then
            totalAmount = totalAmount + cell.Offset(0, -1).Value
        End If
    Next cell
    
    ' 把求和结果粘贴到目标工作表的指定位置，比如A1，你可以按需修改
    targetWs.Range("A1").Value = totalAmount
End Sub

方法2：用SUMIF函数直接计算（更高效） #

如果不需要额外逻辑，直接调用Excel的SUMIF函数会更快，尤其数据量大时：

Sub TotalSaving_WithFormula()
    Dim salesWs As Worksheet
    Dim targetWs As Worksheet
    Dim lastRow As Long
    Dim sumFormula As String
    
    Set salesWs = ThisWorkbook.Worksheets("Sales Output")
    Set targetWs = ThisWorkbook.Worksheets("目标工作表名")
    
    lastRow = salesWs.Cells(salesWs.Rows.Count, "Q").End(xlUp).Row
    
    ' 构建SUMIF公式：条件是Q6到Q最后一行大于0，求和区域是对应的P列
    sumFormula = "=SUMIF('Sales Output'!Q6:Q" & lastRow, ">0", "'Sales Output'!P6:P" & lastRow & ")"
    
    ' 把公式写入目标单元格，若要固定数值而非公式，取消下面注释
    targetWs.Range("A1").Formula = sumFormula
    ' targetWs.Range("A1").Value = targetWs.Range("A1").Value
End Sub

关键提示： #

• 记得把代码里的目标工作表名替换成你实际要粘贴结果的工作表名称，比如"Summary"或"统计报表"
• 方法2中如果不想保留公式，只想存固定数值，把注释的那句代码取消注释即可
• 我帮你删掉了原代码里没用的变量，让整体逻辑更清晰好维护

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