選項?明確的
Sub?告訴匹配()
暗淡?我,?k,?v,?啊?
掃描Sheet1表並建立字典。
arr?=?工作表(“工作表1”)。範圍(" a1 ")。當前區域
設置?db?=?CreateObject("腳本。字典》)
為了什麽?我?=?1?去哪?欠奉
k?=?Trim(arr(i,1))
v?=?arr(我,?2)
db(k)?=?v
下壹個?我
掃描Sheet2表並填寫b列。
紙張(“紙張2”)。挑選
為了什麽?我?=?1?去哪?Sheets("sheet2 ")使用Range.Rows.Count。
k?=?修剪(單元格(即,1))
v?=?分貝(千)
細胞(我,?1)?=?v
下壹個?我
結束?潛水艇