Vraag : Combineer rijen en somgebieden

Hoe kan ik combineren rijen en blinken binnen de somgebieden uit?  Ik wil kolom 1 en 2 controleren gelijkaardige punten en hun waarden in kolom 3 optellen zij ben alike

Antwoord : Combineer rijen en somgebieden

Stel de code in werking in bijlage. (ik heb het door niet zeer efficiënt te registreren, dat gedaan!)

Ik hoop u gegevens slechts in Kolommen A, B, C. hebt.
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:

Schemerige I als Geheel
i = Waaier („A1“). Eind (xlDown). Rij

Application.ScreenUpdating = Vals

    Waaier („D1“). Selecteer
    ActiveCell.FormulaR1C1 = „Hoeveelheid“
    Waaier („D2“). Selecteer
    ActiveCell.FormulaR1C1 = _
        „=SUMPRODUCT ((RC [- 3] =R2C1: R“ & I & „C1) * (RC [- 2] =R2C2: R“ & I & „C2), R2C3: R“ & I & „C3)“
    Waaier („D2“). Selecteer
    Selection.Copy
    Waaier (Selectie, Selection.End (xlDown)). Selecteer
    ActiveSheet.Paste
    Application.CutCopyMode = Vals
    Selection.Copy
    Waaier („D2“). Selecteer
    Selection.PasteSpecial kleef: =xlPasteValues, Verrichting: =xlNone, SkipBlanks _
        : =False, herschik: =False
    Waaier („C2“). Selecteer
    Application.CutCopyMode = Vals
    Selection.EntireColumn.Delete
    Waaier („A1“). Selecteer
    Strek me uit („A1: C“ & I) Actie .AdvancedFilter: =xlFilterCopy, CopyToRange: =Range (_
        „D1“), Uniek: =True
    Waaier („A1: C1“). Selecteer
    Selection.EntireColumn.Delete
    Waaier („A1“). Selecteer

Application.ScreenUpdating = Waar

Sub van het eind
Andere oplossingen  
 
programming4us programming4us