Pytanie : Syndykat rząd i suma pole

Dlaczego móc I rząd i suma pole wewnątrz przodować?  I chcieć kolumna (1) i 2 dla podobny rzecz i sum ich wartość w kolumna 3 być alike

Odpowiedź : Syndykat rząd i suma pole

Biegać the dołączać kod. (I robić ono, w ten sposób, bardzo skuteczny!)

I mieć nadzieję ty mieć dane tylko w Kolumna 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:

Ćmić i Jako Integer
i = Pasmo ("A1"). Końcówka (xlDown). Rząd

Application.ScreenUpdating = Fałszywy

    Pasmo ("D1"). Wybiórka
    ActiveCell.FormulaR1C1 = "Ilość"
    Pasmo ("D2"). Wybiórka
    ActiveCell.FormulaR1C1 = _
        "=SUMPRODUCT ((RC [- 3] =R2C1: R" & i & "C1) * (RC [- 2] =R2C2: R" & i & "C2), R2C3: R" & i & "C3)"
    Pasmo ("D2"). Wybiórka
    Selection.Copy
    Pasmo (Wybór, Selection.End (xlDown)). Wybiórka
    ActiveSheet.Paste
    Application.CutCopyMode = Fałszywy
    Selection.Copy
    Pasmo ("D2"). Wybiórka
    Selection.PasteSpecial Pasta: =xlPasteValues, Operacja: =xlNone, SkipBlanks _
        : =False, Przestawiać: =False
    Pasmo ("C2"). Wybiórka
    Application.CutCopyMode = Fałszywy
    Selection.EntireColumn.Delete
    Pasmo ("A1"). Wybiórka
    Pasmo ("A1: C" & i) .AdvancedFilter Akcja: =xlFilterCopy, CopyToRange: =Range (_
        "D1"), Unikalny: =True
    Pasmo ("A1: C1"). Wybiórka
    Selection.EntireColumn.Delete
    Pasmo ("A1"). Wybiórka

Application.ScreenUpdating = Prawdziwy

Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us