On Error GoTo Err_Exit Set rngFound = wksToUse.Cells.Find(What:="*", _ LookIn:=xlFormulas, _ LookAt:=xlPart, _ SearchOrder:=xlByRows,_ SearchDirection:=xlPrevious, _ MatchCase:=False) If (Not(rngFound Is Nothing)) Then dblRow = rngFound.Ro...
4、模块的查找Find Find(查找内容,开始行数,开始列始,结束行数,结束列数,是否匹配) Sub 在B模块中查找() With ThisWorkbook.VBProject.VBComponents("B").CodeModule MsgBox .Find("我", 1, 1, 1, 1) End With End Sub 返回结果是True和False。 四、添加引用 引用也是可以通过代码添加的~ 添加引用 Sub...
这里的判别式Not rng Is Nothing，断句是Not (rng Is Nothing)，意思是判断rng是否不为空。为了方便例子，本文后续的代码会默认能找到单元格。FindNext方法 一张工作表里可能有多个同样的数据，我们如果想接着上一个找到的单元格去找下一个单元格，就可以使用FindNext：Dim rng1 As RangeDim rng2 As RangeSet ...
Sub Find5() '按先行后列的方式查找 Dim k k = Range("A:B").Find("AB", LookIn:=xlValues, LOOKAT:=xlWhole, SEARCHORDER:=xlByRows).Address MsgBox k End Sub === Sub Find51() '按先列后行的方式查找 Dim k k = Range("A:B").Find("AB", LookIn:=xlValues, LOOKAT:=xlWhole, SEARCH...
Set rngFound=wksToUse.Cells.Find(What:="*",_LookIn:=xlFormulas,_LookAt:=xlPart,_SearchOrder:=xlByRows,_SearchDirection:=xlPrevious,_MatchCase:=False)If(Not(rngFound Is Nothing))Then dblRow=rngFound.Row Set rngFound=wksToUse.Cells.Find(What:="*",_LookIn:=xlFormulas,_LookAt:=xlPart,_Se...
set rg 这一句给变量rg赋值为在f列查找所得到的单元格 if rg is nothing 表示刚才赋值为空，即find找不到 那么if not rg is nothing就是找得到了。
原示例代码如下:(大家也可参见VBA帮助系统Find方法或FindNext方法帮助主题) 本示例在单元格区域A1:A500中查找值为2的单元格,并将这些单元格的值变为5。 With Worksheets(1).Range("a1:a500") Set c = .Find(2, lookin:=xlValues) If Not c Is Nothing Then ...
这里的判别式Not rng Is Nothing,断句是Not (rng Is Nothing),意思是判断rng是否不为空。 为了方便例子,本文后续的代码会默认能找到单元格。 FindNext方法 一张工作表里可能有多个同样的数据,我们如果想接着上一个找到的单元格去找下一个单元格,就可以使用FindNext: ...
[VBA]关于查找方法(Find方法)的应用(一),在Excel中,选择菜单“编辑”——“查找(F)…”命令或者按“Ctrl+F”组合键,将弹出如下图01所示的“查找和替换”对话框。在“查找”选项卡中,输入需要查找的内容并设置相关选项后进行查找,Excel会将活动单元格定位在查找到的相应
1. Find方法的作用 Find方法用来在指定的单元格区域中查找包含某个特定的数据,若找到符合条件的数据,则返回包含该数据的单元格(Range对象);若未发现相匹配的数据(无匹配的单元格对象),则返回Nothing。 2. Find方法的语法 [语法] <单元格区域>.Find (What,[After],[LookIn],[LookAt],[SearchOrder],[SearchDi...