Frage : Mähdrescherreihen und Summenfelder

Wie kann ich Reihen kombinieren und Summenfelder übertreffen innen?  Ich möchte Spalte 1 überprüfen und 2 für wieeinzelteile und ihre Werte in Spalte 3 zu summieren sind sie alike

Antwort : Mähdrescherreihen und Summenfelder

Den angebrachten Code laufen lassen. (Ich habe ihn getan, indem ich so notierte nicht sehr leistungsfähig!)

Ich hoffe, dass Sie Daten nur in Spalten A, B, C. haben.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

I als ganze Zahl verdunkeln
I = Strecke („A1“). Ende (xlDown). Reihe

Application.ScreenUpdating = falsch

    Strecke („D1“). Auserwählt
    ActiveCell.FormulaR1C1 = „Quantität“
    Strecke („D2“). Auserwählt
    ActiveCell.FormulaR1C1 = _
        „=SUMPRODUCT ((RC [- 3] =R2C1: R“ u. i u. „C1) * (RC [- 2] =R2C2: R“ u. i u. „C2), R2C3: R“ u. i u. „C3)“
    Strecke („D2“). Auserwählt
    Selection.Copy
    Strecke (Vorwähler, Selection.End (xlDown)). Auserwählt
    ActiveSheet.Paste
    Application.CutCopyMode = falsch
    Selection.Copy
    Strecke („D2“). Auserwählt
    Selection.PasteSpecial Paste: =xlPasteValues, Betrieb: =xlNone, SkipBlanks _
        : =False, stellen um: =False
    Strecke („C2“). Auserwählt
    Application.CutCopyMode = falsch
    Selection.EntireColumn.Delete
    Strecke („A1“). Auserwählt
    Strecke („A1: C-“ u. i).AdvancedFilter Tätigkeit: =xlFilterCopy, CopyToRange: =Range (_
        „D1“), einzigartig: =True
    Strecke („A1: C1“). Auserwählt
    Selection.EntireColumn.Delete
    Strecke („A1“). Auserwählt

Application.ScreenUpdating = richten aus

Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us