Vba 宏组合一些行表中的数据

Question

我需要帮助来制作一个宏，该宏组合了 Excel 表中某些行的数据。我的表格如下所示：

A header	header 2	header 3	header 4
Apple	2	1	3
Banana	3	2	4
Mango	4	3	5
Grape	5	4	6
Lime	6	5	7

我需要一个宏来识别“Banana”、“Mango”的特定文本' 和 'Grape'，然后将它们组合成一行，同时添加其他三列中的数据。因此，组合这些列应该如下所示。

| Total   | 12 (3 + 4 + 5) | 9 (2+3+4) | 15 (4 + 5+ 6)|

任何帮助将不胜感激。提前致谢！

编辑：我应该补充一点，该表是由另一个宏使用另一张表中的数据创建的。其代码如下：

Sub CopyUnique()

Application.Calculation = xlAutomatic

    Dim s1 As Worksheet, s2 As Worksheet
    
    Set s1 = Sheets("Bericht1")
    Set s2 = Sheets("Sheet1")
    s1.Range("E:E").Copy s2.Range("a1")
    s2.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo       
        
s2.Range("B3").Select
ActiveCell.Formula2R1C1 = "=SUMIF('" & s1.Name & "'!R3C5:R50000C5,'" & s2.Name & "'!RC1,'" & s1.Name & "'!R3C20:R50000C20)"

s2.Range("B3:B" & Range("A" & Rows.Count).End(xlUp).Row).FillDown


s2.Range("c3").Select
ActiveCell.Formula2R1C1 = "=SUMIF('" & s1.Name & "'!R3C5:R50000C5,'" & s2.Name & "'!RC1,'" & s1.Name & "'!R3C17:R50000C18)"

s2.Range("c3:c" & Range("A" & Rows.Count).End(xlUp).Row).FillDown


s2.Range("d3").Select
ActiveCell.Formula2R1C1 = "=SUMPRODUCT(IF('" & s1.Name & "'!R3C5:R50000C5='" & s2.Name & "'!RC1, '" & s1.Name & "'! R3C20:R50000C20*'" & s1.Name & "'!R3C28:R50000C28))"

s2.Range("d3:d" & Range("A" & Rows.Count).End(xlUp).Row).FillDown
   


s2.Range(Range("B3:D3"), Range("B3").End(xlDown)).Select
Selection.Copy
s2.Range("B3").PasteSpecial xlPasteValues

Range("A2").Select
Application.CutCopyMode = True

Dim r As Long, c As Long
    Range("A2:D" & Rows.Count).SpecialCells(xlCellTypeConstants).BorderAround ColorIndex:=1, Weight:=xlThick
    For c = 6 To 11
        r = WorksheetFunction.Max(r, Cells(Rows.Count, c).End(xlUp).Row)
    Next
    
Range("A2:D2").Resize(r).BorderAround ColorIndex:=11, Weight:=xlThick

Range("B2").Copy
Range("A2").PasteSpecial xlPasteFormats

Application.CutCopyMode = False

End Sub

Answer 1

您可以使用 Excel 中的普通函数来实现：

我在总计行中的公式是：

=SUM(SUMIF($A$2:$A$6;{"Banana";"Mango";"Grape"};B$2:B$6))

拖动到右侧。请注意，这里的关键部分是字符串 {"Banana";"Mango";"Grape"}，它将过滤您想要获取的总和。也许您可以在 VBA 中编写一些代码来操作该部分，并在每次运行它时选择您想要总结的内容。