Questione : File dell'associazione e campi di somma

Come posso unire le file ed i campi di somma dentro eccellono?  Voglio controllare la colonna 1 e 2 per gli articoli simili e sommare i loro valori in colonna 3 sono alike class= del

Risposta : File dell'associazione e campi di somma

Fare funzionare il codice allegato. (Lo ho fatto mediante la registrazione, così, non molto efficiente!)

Spero che abbiate dati soltanto in colonne A, B, C.
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:
Oscurare la i come numero intero
i = gamma (“A1„). Estremità (xlDown). Fila

Application.ScreenUpdating = falso

    Gamma (“D1„). Prescelto
    ActiveCell.FormulaR1C1 = “quantità„
    Gamma (“D2„). Prescelto
    ActiveCell.FormulaR1C1 = _
        “=SUMPRODUCT ((RC [- 3] =R2C1: R„ & i & “C1) * (RC [- 2] =R2C2: R„ & i & “C2), R2C3: R„ & i & “C3)„
    Gamma (“D2„). Prescelto
    Selection.Copy
    Gamma (selezione, Selection.End (xlDown)). Prescelto
    ActiveSheet.Paste
    Application.CutCopyMode = falso
    Selection.Copy
    Gamma (“D2„). Prescelto
    Colla di Selection.PasteSpecial: =xlPasteValues, funzionamento: =xlNone, _ di SkipBlanks
        : Il =False, traspone: =False
    Gamma (“C2„). Prescelto
    Application.CutCopyMode = falso
    Selection.EntireColumn.Delete
    Gamma (“A1„). Prescelto
    Gamma (“A1: Azione di i).AdvancedFilter &„ di C: =xlFilterCopy, CopyToRange: =Range (_
        “D1„), unico: =True
    Gamma (“A1: C1„). Prescelto
    Selection.EntireColumn.Delete
    Gamma (“A1„). Prescelto

Application.ScreenUpdating = allineano

Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us