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

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

findnext的使用條件是：搜索的單元格范圍、內(nèi)容和其他設置與上一次查找相同，例如：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=。查找，。單元格（細胞。計數(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&”of “&；S&”：“&；vbcrlf&；MSG/R End Sub

打開一個excel表格：

假設您使用名稱來判斷是否有重復數(shù)據(jù)，然后輸入函數(shù)：

=count（$A$3:$A$9，A3）

并向下拖動重復函數(shù)：

如圖所示，值在單元格大于1，表示存在重復數(shù)據(jù)：

演示如何判斷excel中的數(shù)據(jù)是否重復。