- 帖子
- 1567
- 主題
- 40
- 精華
- 0
- 積分
- 1591
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- Excel 2010 & 2016
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2020-7-15
- 最後登錄
- 2026-2-2
|
謝謝各位前輩提供這麼多知識在論壇上
今天後學練習到要注意執行效能!
心得註解如下!請各位前輩指正並指導!謝謝!
Option Explicit
Sub TEST_2()
Dim i&, x&, Y, Z, Arr, Brr, Crr, T
'↑宣告變數
T = Timer
Set Y = CreateObject("Scripting.Dictionary")
Set Z = CreateObject("Scripting.Dictionary")
'↑令Y,Z各是字典
For x = 1 To 2
'↑設外順迴圈把兩表資料 用Z字典整理 為不重複並各將Z字典轉置為陣列
',再裝入字典成為Y(3), Y(4)
Y(x) = Sheets(x).Range("A1:A" & Sheets(x).[A65536].End(3).Row)
Y(x) = Application.Transpose(Y(x))
'↑盡量不用轉置的方式處理資料!一兩次還好!多次耗時!
Crr = Y(x)
'↑需要用Crr將字典裡的陣列盛裝出來執行比較快
For i = 1 To UBound(Crr)
Z(Crr(i)) = ""
Next
Y(x + 2) = Application.Transpose(Z.KEYS)
'↑盡量不用轉置的方式處理資料!一兩次還好!多次耗時!
Z.RemoveAll
Next
For x = 3 To 4
'↑設外順迴圈把兩陣列資料分類並組成字串
Crr = Y(x)
'↑需要用Crr將字典裡的陣列盛裝出來執行比較快
For i = 2 To UBound(Crr)
If Z(Crr(i, 1)) = "" Then
Arr = Arr & Crr(i, 1) & "|"
Z(Crr(i, 1)) = Z(Crr(i, 1)) + 1
Else
Brr = Brr & Crr(i, 1) & "|"
Arr = Replace(Arr, Crr(i, 1) & "|", "")
End If
Next
Next
Brr = Application.Transpose(Split(Brr, "|"))
Arr = Application.Transpose(Split(Arr, "|"))
'↑將Arr,Brr字串 用"|" 符號拆解為一維陣列,並轉置為結果
'因為Arr,Brr宣告沒有指定是什麼類型資料!所以可以變換類型!
With Sheets(3)
.[I1].Resize(, 2) = Array("相同", "不同")
.[I2].Resize(UBound(Brr), 1) = Brr
.[J2].Resize(UBound(Arr), 1) = Arr
End With
Set Y = Nothing
Set Z = Nothing
Set Arr = Nothing
Set Brr = Nothing
Set Crr = Nothing
MsgBox Timer - T & "秒"
End Sub |
|
發表於 2022-10-18 16:43
| 
