Cuestión : Filas de la cosechadora y campos de suma

¿Cómo puedo combinar filas y los campos de suma adentro sobresalen?  Quiero comprobar la columna 1 y 2 para los artículos semejantes y sumar sus valores en la columna 3 son alike class= del

Respuesta : Filas de la cosechadora y campos de suma

Funcionar con el código atado. (Lo he hecho registrando, así pues, no muy eficiente!)

Espero que usted tenga datos solamente en las columnas 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:

Amortiguar i como número entero
i = gama (“A1”). Extremo (xlDown). Fila

Application.ScreenUpdating = falso

    Gama (“D1”). Selecto
    ActiveCell.FormulaR1C1 = “cantidad”
    Gama (“D2”). Selecto
    ActiveCell.FormulaR1C1 = _
        “=SUMPRODUCT ((RC [- 3] =R2C1: R” y i y “C1) * (RC [- 2] =R2C2: R” y i y “C2), R2C3: R” y i y “C3)”
    Gama (“D2”). Selecto
    Selection.Copy
    Gama (selección, Selection.End (xlDown)). Selecto
    ActiveSheet.Paste
    Application.CutCopyMode = falso
    Selection.Copy
    Gama (“D2”). Selecto
    Goma de Selection.PasteSpecial: =xlPasteValues, operación: =xlNone, _ de SkipBlanks
        : El =False, transporta: =False
    Gama (“C2”). Selecto
    Application.CutCopyMode = falso
    Selection.EntireColumn.Delete
    Gama (“A1”). Selecto
    Gama (“A1: Acción de C” y de i) .AdvancedFilter: =xlFilterCopy, CopyToRange: =Range (_
        “D1”), único: =True
    Gama (“A1: C1”). Selecto
    Selection.EntireColumn.Delete
    Gama (“A1”). Selecto

Application.ScreenUpdating = verdad

Submarino del extremo
Otras soluciones  
 
programming4us programming4us