Вопрос : Рядки зернокомбайна и поля суммы

Как могу я совместить рядки и поля суммы внутри первенствуют?  Я хочу проверить колонку 1 и 2 для близких деталей и суммировать их значениями в колонке 3 они будет alike class=

Ответ : Рядки зернокомбайна и поля суммы

Побегите прикрепленное Кодий. (Я делал его путем записывать, так, очень эффективный!)

Я надеюсь вы имеет данные только в колонках 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:

Затемните I как интежер
iий = ряд («A1»). Конец (xlDown). Рядок

Application.ScreenUpdating = ложно

    Ряд («D1»). Отборно
    ActiveCell.FormulaR1C1 = «количество»
    Ряд («D2»). Отборно
    ActiveCell.FormulaR1C1 = _
        «=SUMPRODUCT ((RC [- 3] =R2C1: R» & I & «C1) * (RC [- 2] =R2C2: R» & I & «C2), R2C3: R» & I & «C3)»
    Ряд («D2»). Отборно
    Selection.Copy
    Ряд (выбор, Selection.End (xlDown)). Отборно
    ActiveSheet.Paste
    Application.CutCopyMode = ложно
    Selection.Copy
    Ряд («D2»). Отборно
    Затир Selection.PasteSpecial: =xlPasteValues, деятельность: =xlNone, _ SkipBlanks
        : =False, транспонирует: =False
    Ряд («C2»). Отборно
    Application.CutCopyMode = ложно
    Selection.EntireColumn.Delete
    Ряд («A1»). Отборно
    Ряд («A1: Действие c» & I) .AdvancedFilter: =xlFilterCopy, CopyToRange: =Range (_
        «D1»), уникально: =True
    Ряд («A1: C1»). Отборно
    Selection.EntireColumn.Delete
    Ряд («A1»). Отборно

Application.ScreenUpdating = True

Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us