VBA findNext nothing 问题

Function test(cel As Integer) As StringDim functionRetStr As String '方法返回值Dim currentValue As String '调用方法单元格第一列值Dim totalRow As Long '总行Dim rngTemp As Range '搜索Dim rngA As RangefunctionRetStr = ""totalRow = ActiveSheet.[A65536].End(xlUp).RowcurrentValue = Cells(Application.Caller.Row, 1).ValueSet rngA = Range("A1:A" & totalRow)Set rngTemp = rngA.Find(what:=currentValue, LookAt:=xlWhole)If Not rngTemp Is Nothing ThenfirstAddress = rngTemp.AddressIf IsError(ActiveSheet.Cells(rngTemp.Row, cel)) = False ThenfunctionRetStr = ActiveSheet.Cells(rngTemp.Row, cel).ValueEnd IfDoSet rngTemp = rngA.Find(what:=currentValue, LookAt:=xlWhole, after:=rngTemp)If IsError(ActiveSheet.Cells(rngTemp.Row, cel)) = False ThenIf Not functionRetStr Like "*" & ActiveSheet.Cells(rngTemp.Row, cel).Value & "*" ThenfunctionRetStr = functionRetStr & "," & ActiveSheet.Cells(rngTemp.Row, cel).ValueEnd IfEnd IfLoop Until rngTemp Is Nothing Or rngTemp.Address = firstAddressEnd IfSet rngTemp = Nothingtest = functionRetStr
End Function

VBA findNext nothing 问题相关推荐

Qt excel VBA findNext及find使用
QAxObject *range = pWorksheet->querySubObject("UsedRange");//获得表格范围if ( range ){QAxObje ...
【LuKS】Vba if not c is nothing
在对excel宏调整的时候,发现以下一段代码,在网上查阅资料后,理解如下: If Not c Is Nothing Thens = c.Addresssource.Cells(c.Row, 7) = ...
find vba 模糊_VBA积木代码方案：实现多重查找、模糊查找、清除值
分享成果,随喜真能量.大家好,今日内容仍是和大家分享VBA编程中常用的简单"积木"过程代码,第NO.111-NO.113则,内容是:利用FindNext完成多重查找.利用Clear ...
VBA各种查询方法介绍和应用举例
目录前言 1 Range对象的Find方法 2. Range 对象的 Filter 方法 2.1 AutoFilte自动筛选 2.2 AdvancedFilter 高级筛选 3.Instr 函数 4 ...
find vba 模糊_利用VBA代码实现多重查找、模糊查找、清除值的方案
分享成果,随喜真能量.大家好,今日内容仍是和大家分享VBA编程中常用的简单"积木"过程代码,第NO.111-NO.113则,内容是:利用FindNext完成多重查找.利用Clear ...
find vba 模糊_EXCEL——VBA实现模糊查找并获取查找到的单元格内容
image 大家有没有遇到过这种情况,要在一张数据很多的sheet中进行查找匹配一个数据或多个数据(部分匹配),并对查找到的单元格内容进行汇总.这个时候如果对多个数据一个个在目标sheet中ctrl ...
Excel+VBA+之快速上手
第一章 VBA语言基础第一节标识符一．定义标识符是一种标识变量.常量.过程.函数.类等语言构成单位的符号,利用它可以完成对变量.常量.过程.函数.类等的引用. 二．命名规则 1 ...
excel查找功能_如何使用VBA代码实现Excel的查找和替换功能？
每天一篇Excel技术图文微信公众号:Excel星球NO.145-I Find You作者:看见星光微博:EXCELers / 知识星球:Excel HI,大家好,我是星光.这章继续给大家分享VBA常 ...
小福利，用Excel VBA设计一个查询小应用
小福利,用Excel VBA设计一个查询小应用 Option ExplicitSub 查询_Click()Dim rng1, rng2, rng As RangeDim firstaddressDim ...

VBA findNext nothing 问题

VBA findNext nothing 问题相关推荐

最新文章

热门文章