妳需要學習使用find方法。
字典也可以
像妳這種循環與單元格值比對的方式，是最慢的了。
僅手寫find方法使用示例如下
dim?rg?as?range
set?rg=activesheet.usedrange.find(text1.text,lookin:=xlvalues,lookat:=xlwhole)
if?not?rg?is?nothing?then
msgbox?"有重復！"
text1.setfocus
exit?sub
end?if
end?sub