子aa（）
“將x設為整數”行號控制循環
將y設為整數
Dim s1作為字符串
將s2顯示為字符串
對於x = 1到10步驟1‘shet 1將10改為有多少行。
工作表（“Sheet1”）。使活動
S1 =範圍（單元格（x，3），單元格（x，3））。“value”關鍵字更改為對應的列。
工作表（“工作表2”）。激活“在shet2中查找”並將結果放入s2。
對於y = 1到10步驟1‘shet 2將10改為有多少行。
If s1 = range（單元格（y，3），單元格（y，3））。“then”關鍵字更改為相應的值的哪壹列。
S2 =範圍（單元格（y，4），單元格（y，4））。如果哪壹列需要值，則將其更改為相應的值。
y = 10‘找到後跳出搜索循環。
如果…就會結束
然後
工作表（“Sheet1”）。使活動
範圍（單元格（x，4），單元格（x，4））。值= S2‘檢索到的數據放在表1的第四列中。
然後
末端接頭
檢索到的數據放在表1的第四列中。
跨工作簿操作時更改前綴。工作表（“sheet1”）。如果怕麻煩，激活將另壹個表復制到工作簿中。