標題: 兩工作表資料比對.修改.更新 [打印本頁]

---

作者: s13030029    時間: 2021-3-23 14:38     標題: 兩工作表資料比對.修改.更新

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

---

作者: samwang    時間: 2021-3-25 12:05

回復 1# s13030029


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

---

作者: samwang    時間: 2021-3-25 12:36

回復 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

---

作者: s13030029    時間: 2021-3-25 17:48

回復 3# samwang

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

---

作者: samwang    時間: 2021-3-25 20:48

回復 4# s13030029


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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)