1.打開Excel並按“ALT+F11”打開Visual Basic編輯器。
2.在左側的項目瀏覽器窗格中，找到並展開您的工作簿。
3.雙擊工作簿的名稱，並在代碼窗口中輸入以下VBA代碼:
`` vba
半自動配對（）
將第壹列作為範圍變暗
將第二列作為範圍變暗
將結果區域調暗為範圍
將單元格作為範圍變暗
設置第壹列數據範圍。
設置第壹列= range（“a 1:a“&；單元格（行。數數，“壹個”）。結束（xlUp）。排）
設置第二列的數據範圍。
設置第二列= range（“b 1:b“&；單元格（行。數數，“B”）。結束（xlUp）。排）
設置結果區域的起始單元格。
設置結果區域=範圍（“D1“）
對於第壹列中的每個單元格
找到相應的配對值。
設置匹配單元格=第二列。查找（單元格。值，查找位置:= xlvalues，查找位置:= xlwhole）。
如果找到匹配值，將其寫入結果區域。
如果不匹配，則該單元格什麽都不是
結果範圍。值=單元格。價值
結果範圍。偏移量（0，1）。值=匹配單元格。價值。
設置結果區域=結果區域。偏移量（1，0）
如果…就會結束
下壹個單元格
末端接頭
```
4.在代碼中編輯數據區域和結果區域。替換` range（“a 1:a“&；替換單元格（行。數數，“壹個”）。結束（xlup）。row）`與您實際要配對的第壹個數據區域，並替換` range（“b 1:b“&；單元格（行。數數，“b”）。結束（xlup）。row）`替換為您實際想要配對的第二個數據區域，並將` Range（“d 1“）`替換為您想要顯示結果的起始位置。
5.關閉Visual Basic編輯器。
6.在Excel中按Alt+F8打開“宏”對話框。
7.選擇您剛剛創建的宏（自動配對）並單擊“運行”按鈕。
上述VBA代碼將遍歷第壹列中的每個單元格，在第二列中找到相應的配對值，並將結果寫入指定的結果區域。您可以根據實際情況調整代碼和數據範圍以實現您想要的自動匹配功能。