set DIC = CreateObject（“Scripting。詞典》）
n =單元格（行。數數，“壹個”）。結束（xlUp）。排
M =單元格（行。數數，“B”）。結束（xlUp）。排
對於i = 1到n
DIC（細胞（I，“A”）。值= 1
然後
對於i = 1到M
如果DIC。存在（單元格（I，“B”）。值）=真
執行代碼
單元格（I，“c“）=“該數據存在於列A中“
其他
單元格（I，“C”）=“無”
如果…就會結束