VBA搜索B列中是否有A1對應的數據，如果沒有則提示，如果有則執行壹段代碼。

Set DIC = CreateObject("Scripting。字典》)

n =單元格(行。數數，“壹”)。結束(xlUp)。排

M =單元格(行。數數，“B”)。結束(xlUp)。排

對於i = 1到n

DIC(細胞(I，“A”)。值)= 1

然後

對於i = 1到M

如果DIC。存在(單元格(I，“B”)。Value) = True那麽

執行代碼

單元格(I，" c") = "此數據存在於列A中"

其他

細胞(I，“C”)=“無”

如果…就會結束

然後