Как объединить Лист1 и Лист2 в Лист3? - PullRequest
Новая
       48

Как объединить Лист1 и Лист2 в Лист3?

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

Мне нужно объединить sheet1 (2 столбца: A = REFERENCE и B = QTY) и sheet2 (2 столбца: B = REFERENCE и C = QTY) с результатом в sheet3, например: A = ССЫЛКА sheet1 с sheet2 ( уникальные данные) и B = СУММА QTY листа1 и C = СУММА QTY листа2.

Лист1:
enter image description here

Лист2:
enter image description here

Sheet3: результат и различия только в столбцах: A, B и C, остальные имеют procv.
enter image description here

Я использовал «Запись макроса» и рабочую книгу, если в другом P C не работает. 

Sub consolidar()
'
' consolidar Macro
'

'
    Selection.Consolidate Sources:=Array( _
        "'C:\Users\epontes\Desktop\[APR GR e PICAGEM RENAULT VBA.xlsm]02 GR RENAULT (Consolidar)'!R1C1:R1000C2" _
        , _
        "'C:\Users\epontes\Desktop\[APR GR e PICAGEM RENAULT VBA.xlsm]03 CONTAGEM JAP'!R2C2:R1401C3" _
        ), Function:=xlSum, TopRow:=True, LeftColumn:=True, CreateLinks:=False
    Range("A3").Select
End Sub

1 Ответ

1 голос
/ 26 февраля 2020

Ваш код ссылается на путь к файлу объекта «Рабочий лист» и, таким образом, будет выполняться только в том случае, если он выполняется, когда книга хранится в том же месте. Поэтому отправка этого кому-либо или открытие на другом P C приведет к сбою. В этом случае путь к файлу в значительной степени избыточен, и вы можете просто опустить их из ссылки на лист так: 

Sub consolidar()
    Selection.Consolidate Sources:=Array( _
        "'02 GR RENAULT (Consolidar)'!R1C1:R1000C2", _
        "'03 CONTAGEM JAP'!R2C2:R1401C3"), _
        Function:=xlSum, TopRow:=True, LeftColumn:=True, CreateLinks:=False
    Range("A3").Select
End Sub
...