vba findnext循环 vba中findnext怎样才能嵌套使用？

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

findnext的使用条件是：搜索的单元格范围、内容和其他设置与上一次查找相同，例如：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=。查找，。单元格（细胞。计数)，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循环，直到Iadd=c.address（0,0）r end if/r end with/r msgbox”！一共找到了“&n& “”&S& “：”&vbcrlf& MSG/R End Sub

看了代码，首先，让我们说一个不重要的建议，最好不要用goto来解决你的问题，需要用错误捕获语句，以下示例代码：

dim r as range error resume next“不要报告错误集r=列（I）。Find（“-”，，，xlwhole）on Error goto 0“如果R为nothing则恢复错误“Find failed n=R.row”Find else n=0“no end if n>0则”原始语句

vba findnext循环 excel vba find函数用法 findnext函数

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。