定義數據源的範圍
尺寸範圍作為範圍
Set srcRange = Worksheets(“表2”)。範圍(" A2:G10000 ")
將號碼和價格存儲在字典中。
Dim dict作賓語
Set dict = CreateObject("腳本。字典》)
Dim srcRow As範圍
對於srcRange中的每個srcRow。行
dict(srcRow。單元格(1，1)。Value) = srcRow。單元格(1，6)。價值
下壹站
匹配價格，計算表1中的總價。
作為範圍縮小範圍
set desrange = Worksheets(" Table 1 ")。範圍(“C4:H200”)
範圍變小
對於destRange中的每個destRow。行
獲取當前行的編號和數量。
字符串形式的模糊代碼
代碼= destRow。單元格(1，3)。價值
整數形式的Dim數量
數量=減少。單元格(1，7)。價值
通過數字找到價格。
雙倍模糊價格
價格=字典(代碼)
計算總價，填在第9欄。
Dim totalPrice為Double
總價=價格*數量
destRow。單元格(1，8)。價值=價格
destRow。單元格(1，9)。價值=總價
下壹步
末端接頭