vba中findnext怎樣才能嵌套使用？findnext的使用條件是：搜索的單元格范圍、內(nèi)容和其他設(shè)置與上一次查找相同，例如：public sub ifind（） dim C as range，R

vba中findnext怎樣才能嵌套使用？

findnext的使用條件是：搜索的單元格范圍、內(nèi)容和其他設(shè)置與上一次查找相同，例如：public sub ifind（） dim C as range，RNG as range，S$，Iadd$，MSG$，n&r set RNG=range（“A:A”）r S=“ABC”r with RNG/r set C=。查找，。單元格（細(xì)胞。計(jì)數(shù))，xlValues，xlWhole） 如果不是c，則/r Iadd=c.address（0,0）r do/r n=n 1/r MSG=MSG&vbcrlf&c.address（0,0）r set c=。Findnext（c）“如果條件保持不變，則使用Findnext/r如果c為nothing，則退出do/r循環(huán)，直到Iadd=c.address（0,0）r end if/r end with/r msgbox”！一共找到了“&n& “”&S& “：”&vbcrlf& MSG/R End Sub

看了代碼，首先，讓我們說(shuō)一個(gè)不重要的建議，最好不要用goto來(lái)解決你的問(wèn)題，需要用錯(cuò)誤捕獲語(yǔ)句，以下示例代碼：

dim r as range error resume next“不要報(bào)告錯(cuò)誤集r=列（I）。Find（“-”，，，xlwhole）on Error goto 0“如果R為nothing則恢復(fù)錯(cuò)誤“Find failed n=R.row”Find else n=0“no end if n>0則”原始語(yǔ)句