使用Excel VBA计算具有相同代码(条件)的行的总和,可以通过以下步骤实现:
Sub CalculateSum()
Dim ws As Worksheet
Dim lastRow As Long
Dim codeColumn As Range
Dim sumColumn As Range
Dim code As String
Dim totalSum As Double
' 设置工作表
Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为你要操作的工作表名称
' 设置代码列和总和列的范围
Set codeColumn = ws.Range("A2:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row) ' 将"A"替换为你的代码列的列号
Set sumColumn = ws.Range("B2:B" & ws.Cells(ws.Rows.Count, "B").End(xlUp).Row) ' 将"B"替换为你的总和列的列号
' 循环遍历每一行,计算相同代码的总和
For Each cell In codeColumn
code = cell.Value
If code <> "" Then
totalSum = totalSum + WorksheetFunction.SumIf(codeColumn, code, sumColumn)
End If
Next cell
' 显示总和结果
MsgBox "相同代码的总和为:" & totalSum
End Sub
这样,你就可以使用Excel VBA计算具有相同代码的行的总和了。请注意,这只是一个简单的示例,你可以根据实际需求进行修改和扩展。
领取专属 10元无门槛券
手把手带您无忧上云