返回列表下一主題上一主題發帖

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

s13030029

　暱稱: 伊恩

中學生 Rank: 2

帖子: 97
主題: 33
精華: 0
積分: 129
點名: 0
作業系統: Win 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2019-5-7
最後登錄: 2022-8-25

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2021-3-23 14:38 | 只看該作者

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

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

test.rar (11.42 KB)

樓主熱帖

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2025-1-10

2^#

發表於 2021-3-25 12:05 | 只看該作者

回復 1# s13030029

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

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2025-1-10

3^#

發表於 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

TOP

s13030029