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