Excel VBA問題

不需要兩個甚至三個周期，只需要壹個。使用查找功能

Sub t1()

出錯時繼續下壹步

對於範圍內的每個a(“A2:a 1014”)

中頻範圍(" b2:b752 ")。Find(a.Value，LookIn:=xlValues)是Nothing Then Cells(a.Row，3) = "NOEXIST" Else Cells(a.Row，3) = "EXIST "

然後

末端接頭

更簡單的方法，直接使用工作表函數countif，代碼如下:

Sub t1()

出錯時繼續下壹步

對於範圍內的每個a(“A2:a 1014”)

如果工作表起作用。CountIf(Range("B2:B752 ")，a) = 0那麽單元格(a.Row，3) = "不存在"否則單元格(a.Row，3) = "存在"

然後

末端接頭

A.row可以直接生成A對應的行號，不需要獲取額外的X變量來循環。即使用X變量表示行號，也可以直接在A循環中加壹個x=x+1。