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

[發問] 如何使用陣列+字典物件比對資料的時候用LIKE語法?

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-9-16 08:19 | 顯示全部帖子

[發問] 如何使用陣列+字典物件比對資料的時候用LIKE語法?

本帖最後由 PKKO 於 2015-9-16 08:20 編輯

不好意思,麻煩各位大大了,我覺得TEST_1的程式碼執行速度較快,但我只會用TEST_2的方式,有大大可以教學一下嗎?

Sub TEST_1()
'這是原本的程式碼
[B:B].Clear: [J1] = ""
xRow = 10
Arr = [A1].Resize(xRow)
Brr = [C1].Resize(xRow)
Set xD = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(Brr)
xD(Brr(i, 1)) = xD(Brr(i, 1)) + 1
Next
For i = 1 To UBound(Arr)
Arr(i, 1) = xD(Arr(i, 1))
Next
[B1].Resize(xRow) = Arr
End Sub
Sub TEST_2()
'我想將TEST_1模組的程式碼改成用LIKE的方式,不曉得該怎麼做???
'我只會下列這種方式
xRow = 10
Arr = [A1].Resize(xRow)
Brr = [C1].Resize(xRow)
Dim AA
ReDim AA(1 To 10, 1 To 1)
For i = 1 To UBound(Arr)
M = 0
For J = 1 To UBound(Brr)
If Brr(J, 1) Like "*" & Arr(i, 1) & "*" Then
M = M + 1
AA(i, 1) = M
End If
Next
Next
[B1].Resize(xRow) = AA
End Sub

複製代碼

TEST.rar (13.04 KB)

樓主熱帖

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2015-9-16 19:57 | 顯示全部帖子

回復 2# GBKEE

感謝超版大大的回覆,但您的方式似乎與我的TEST_2模組程式碼相同,我想要學習的部分是透過陣列+字典物件的方式

原因是速度上似乎比較快

PKKO

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2015-9-16 20:03 | 顯示全部帖子

回復 PKKO

Sub TEST_1()

.Clear: [J1] = ""
xRow = 10
arr = [A1].Resize(xRow)
Brr = [C1].R ...
ikboy 發表於 2015-9-16 09:42

感謝ikboy大大的回覆,您的INSTR方式小弟學習了

但想請教一下

您的方式雖有用到字典+陣列

但您跟我的一樣都是跑了雙重迴圈,假設2萬*2萬就會太久了

我實際將您的程式碼與我的測試,跑一萬次迴圈發現

您的程式碼速度與我的相差不到10 %

想請問有跑單迴圈的方式(類似我的TEST_1的程式碼)

可以加快比對速度嗎?

PKKO

TOP

PKKO