返回列表 上一主題 發帖

兩工作表資料比對.修改.更新

兩工作表資料比對.修改.更新

如題
我如果在表一做資料修改(如圖1
但另一個人在表二做資料新增(如圖2
最後我想結合我們兩個人修改成新版在表三(如圖3
要如何用VBA做呢?

圖1

1.PNG
2021-3-23 14:37

圖2

2.PNG
2021-3-23 14:37

圖3

3.PNG
2021-3-23 14:37

test.rar (11.42 KB)

回復 1# s13030029


附件內容結果與樓主貼於畫面不一樣,請再確認需求條件,謝謝。

TOP

回復 1# s13030029

依據附件檔案內容需求如下,請測試看看,謝謝。
Sub tt()
Dim xD, Arr, sht%, i&, T
Set xD = CreateObject("Scripting.Dictionary")
For sht = 1 To 2
    With Sheets(sht)
        Arr = .Range(.[D2], .[A65536].End(3))
        For i = 2 To UBound(Arr)
            T = Arr(i, 1) & Arr(i, 2)
            xD(T & "") = Array(Arr(i, 1), Arr(i, 2), Arr(i, 3), Arr(i, 4))
        Next
    End With
Next
[sheet3!A3].Resize(xD.Count, 4) = Application.Transpose(Application.Transpose(xD.items))
End Sub

TOP

回復 3# samwang

謝謝~如果是有資料修改或增加是沒問題~
但如果是有資料被刪除的話就沒辦法了

TOP

回復 4# s13030029


   對不起,不太能了解你的需求,請解釋詳細或附上檔案,謝謝

TOP

        靜思自在 : 【時間成就一切】時間可以造就人格,可以成就事業,也可以儲積功德。
返回列表 上一主題