Question : Rangées de cartel et champs de somme

Comment est-ce que je peux combiner des rangées et les champs de somme excellent-ils dedans ?  Je veux vérifier la colonne 1 et 2 pour les articles similaires et additionner leurs valeurs dans la colonne 3 elles sont alike class= de

Réponse : Rangées de cartel et champs de somme

Courir le code ci-joint. (Je l'ai fait par l'enregistrement, ainsi, pas très efficace !)

J'espère que vous avez des données seulement dans les colonnes 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 :

Obscurcir I comme nombre entier
i = gamme (« A1 »). Extrémité (xlDown). Rangée

Application.ScreenUpdating = faux

    Gamme (« D1 »). Choisi
    ActiveCell.FormulaR1C1 = « quantité »
    Gamme (« D2 »). Choisi
    ActiveCell.FormulaR1C1 = _
        « =SUMPRODUCT ((RC [- 3] =R2C1 : R » et I et « C1) * (RC [- 2] =R2C2 : R » et I et « C2), R2C3 : R » et I et « C3) »
    Gamme (« D2 »). Choisi
    Selection.Copy
    Gamme (choix, Selection.End (xlDown)). Choisi
    ActiveSheet.Paste
    Application.CutCopyMode = faux
    Selection.Copy
    Gamme (« D2 »). Choisi
    Pâte de Selection.PasteSpecial : =xlPasteValues, opération : =xlNone, _ de SkipBlanks
        : Le =False, transposent : =False
    Gamme (« C2 »). Choisi
    Application.CutCopyMode = faux
    Selection.EntireColumn.Delete
    Gamme (« A1 »). Choisi
    Gamme (« A1 : Action de C » et d'i).AdvancedFilter : =xlFilterCopy, CopyToRange : =Range (_
        « D1 »), unique : =True
    Gamme (« A1 : C1 »). Choisi
    Selection.EntireColumn.Delete
    Gamme (« A1 »). Choisi

Application.ScreenUpdating = rectifient

Sous-marin d'extrémité
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us