Excel Vba 高分求助 findnext哪里用错了

参数错了。这个函数的参数只能是搜索范围内的单个单元格，而你的c(1)在前面得到的是查找到第一个单元格的地址，是一个字符串变量。参数应该改为：After:=Range(c(1))

Error Resume Next，然后在要检查错误的地方：If Err.Number=0 Then '这里加入无错误的程序段 Else '这里加入错误处理 End If

在Excel VBA中，Find和FindNext函数用于在指定范围内查找特定的值或文本。下面是一个示例代码，演示如何使用这两个函数来查找A2:A100区域中与A1单元格相等或包含的文本。首先定义一些变量，如iRange（用于指定查找区域）、iFined（用于存储找到的单元格）以及iStr（用于存储要查找的字符串）、iAddress（用于...

iAddress As String, N As Integer\x0d\x0a'以上是定义使用到的变量\x0d\x0aSet iRange = Range("A2:A100") '给irange变量赋值为A2:A100区域\x0d\x0aiStr = Range("A1").Value '给要查找的字符串变量赋值为A1单元格的值\x0d\x0aSet iFined = iRange.Find(iStr, ...

跟你的这个条件是没有关系的。。所以应该是：Do If criterior_Check(currentRow, c1.Row, conType) Then xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Set c1 = .FindNext(c1)Else Set c1 = .FindNext(c1)End If Loop While Not c1 Is Nothing And c1.Address <> firstAddress ...

在Excel数据处理中，VBA的find系列函数如Find、FindNext、Range.FindPrevious等是不可或缺的工具，它们返回range对象，能实现查找和引用功能。以下是find方法的一些常见用法：1. Sub Find1()：在A列查找，返回找到的行号。2. Sub Find11()：在A和B列联合查找，返回找到的行号。3. Sub Find2()：...

在Excel VBA中Find函数的基本用法。Find函数就是Excel表格中的查找功能，可以通过录制宏的方法来获得Find的代码。Sub Macro1()Cells.Find(What:="A", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _, SearchFormat:...

rngC.EntireRow.Delete Shift:=xlUp 这句已经把rngC整行删除了，所以rngC为空了，怎么能引用该行呢？应改为 dim ro as long ro=rngC.row rngC.EntireRow.Delete Shift:=xlUp set rngC=range("a" & ro-1)……后边直接用你原代码。

是你的逻辑设计的原因，你的find()方法在循环体之外。你看一下你的结构:Set findCell = Sheet1.Columns(coldw).Find(str2)if then do for for ...next next loop endif 把它设置到循环体之内去就不会只找一次了。

FindNext 和 FindPrevious 方法，它们用于连续查找，需先通过 Find 方法指定查找条件。FindNext 用于查找下一个匹配项，而 FindPrevious 则查找前一个。这两个方法的使用同样简单，具体用法可自行查阅。总的来说，Find函数是Excel VBA中强大的查找工具，通过合理运用，可以极大提升数据处理的效率。