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