Sumif & Remove Duplicates (мне нужно адаптировать это) - PullRequest
Новая
       36

Sumif & Remove Duplicates (мне нужно адаптировать это)

0 голосов
/ 17 февраля 2020

Я нашел это решение ниже моей проблемы. Хотя это работает, мое понимание ограничено. Можно ли адаптировать его для размещения трех исходных столбцов (A- C)?

Достаточно легко адаптировать строку назначения копирования: - (A: C) к (E: G). Затем я застреваю, пытаясь адаптировать раздел (удалить дубликаты) и (sumif), чтобы учесть дополнительный столбец.

Любая помощь приветствуется. Спасибо, 


     With ActiveSheet

      .Columns("A:B").Copy Destination:=.Columns("D:E")
      .Columns("D:E").RemoveDuplicates Columns:=1, Header:=xlNo
      lLastRow = .Columns("D").Cells(.Rows.Count, 1).End(xlUp).Row
      .Range("E1:E" & lLastRow).FormulaR1C1 = "=SUMIF(C[-4],RC[-1],C[-3])"

     End With

    End Sub```
...