返回列表 上一主題 發帖

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

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2026-5-26 
1# 跳轉到 »
發表於 2021-3-25 12:05 | 顯示全部帖子
回復 1# s13030029


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

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2026-5-26 
2#
發表於 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

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2026-5-26 
3#
發表於 2021-3-25 20:48 | 顯示全部帖子
回復 4# s13030029


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

TOP

        靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。
返回列表 上一主題