如何在 Sheet3 中合並 Sheet1 和 Sheet2？

Question

我需要將 sheet1（2 列：A=REFERENCE 和 B=QTY）和 sheet2（2 列：B=REFERENCE 和 C=QTY）與 sheet3 中的結果合並，例如：sheet1 的 A=REFERENCE 與 sheet2（唯一數據）和 B=數量表 1 的總和和 C=數量表 2 的總和。

表 1：

表2：

Sheet3：結果和差異僅在列中：A、B 和 C 其他有procv。

如果在另一台 PC 中不起作用，我使用了“記錄宏”和工作簿。

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

Answer 1

您的代碼引用 Worksheet 對象的文件路徑，因此只有在工作簿存儲在完全相同的位置時才會運行。 因此，將其發送給其他人或在另一台 PC 上打開將導致它失敗。 在這種情況下，文件路徑在很大程度上是多余的，您可以簡單地從 Sheet 引用中省略它們，如下所示：

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