基於另一列Excel VBA中特定值的總計

Question

我在excel中使用VBA，我試圖在a列中的特定文本之后添加一個新行，然后對b列中的成本求和。

此新行應使用指定的文本“ apple”，並在a列中添加單詞total。 在b列中，它應該簡單地將所有“蘋果”加起來。

A列隨機包含3種水果（蘋果，橙子和香蕉）。

B列包含每種蘋果，橙和香蕉的成本。

它應該看起來像這樣

Apple $12    
Apple $12    
Apple $12    
orange $13    
orange $13    
Banana $7    
Banana $7

---

至

Apple $12    
Apple $12    
Apple $12    
Apple Total $36    
orange $13    
orange $13    
orange Total $26    
Banana $7    
Banana $7    
Banana Total $14

Answer 1

您可能想更改循環的邊界（我只使它通過了第20行）。 當值也以貨幣表示時，這將起作用。

Dim i As Integer
Dim j As Integer
Dim frt As String

j = 1

For i = 2 To 20
    If Cells(i, 1).Value <> Cells(i - 1, 1).Value Then
        Range("A" & i).EntireRow.Insert
        frt = Cells(i - 1, 1).Value & " Total"
        Cells(i, 1).Value = frt
        Cells(i, 2).Value = Application.WorksheetFunction.Sum(Range("B" & j, "B" & i - 1))
        j = i + 1
        i = i + 1
    End If
Next i

End Sub