字典使用問題 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 字典使用問題

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

[發問] 字典使用問題

中學生 Rank: 2

帖子: 163
主題: 1
精華: 0
積分: 170
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-5
最後登錄: 2022-7-20

2^# 跳轉到 »

發表於 2018-10-20 21:25 | 只看該作者

回復 1# jesscc
程式碼修改如下：

Option Base 1
Sub test()
With Sheets("工作表1")
Set D = CreateObject("Scripting.Dictionary")
For Each B In .Range(.[B6], .[B100].End(xlUp))
Dim Ar(10)
For p = 1 To 10
Ar(p) = B.Offset(, p).Value
Next p
D(B & "") = Ar
Next
End With
With Sheets("工作表2")
.[F7:O1000].ClearContents
For Each E In .Range(.[E7], .[E100].End(xlUp))
If D.EXISTS(E & "") Then
E.Offset(, 1).Resize(, 10) = D(E & "")
Else: E.Offset(, 1) = "查無此 PN"
End If
Next
End With
End Sub

複製代碼

靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。

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