- 帖子
- 262
- 主題
- 8
- 精華
- 0
- 積分
- 280
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- HK
- 註冊時間
- 2015-8-11
- 最後登錄
- 2025-3-24
|
回復 1# PKKO
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)) = 0
Next
k = xd.keys
t = xd.items
For i = 1 To UBound(arr)
For j = 0 To UBound(k)
If InStr(k(j), arr(i, 1)) Then t(i - 1) = t(i - 1) + 1
Next
Next
[B1].Resize(xRow) = Application.Transpose(t)
End Sub |
|
發表於 2015-9-16 09:42
| 
