Find方法如果没查到单元格，则rng对象就为Nothing，也就是空的对象，这种情况下我们使用针对rng的方法、属性如rng.Select、rng.value就会报错：所以为了避免查不到数据而产生的报错，我们一般需要使用一个If语句来判断rng是否为Nothing：If Not rng Is Nothing ThenRng.SelectElseMsgBox “没找到!”End If 这里的判别...
Set rng = Cells.Find("100", LookAt:=xlWhole) 以上代码会在整个工作表里查找。 没查到怎么办? Find方法如果没查到单元格,则rng对象就为Nothing,也就是空的对象,这种情况下我们使用针对rng的方法、属性如rng.Select、rng.value就会报错: 所以为了避免查不到数据而产生的报错,我们一般需要使用一个If语句来判断...
FindAddress = Rng.Address Do Rng.Interior.ColorIndex = 6 '设置成黄色 Set Rng = .FindNext(Rng)Loop While Not Rng Is Nothing And Rng.Address <> FindAddress End If End With End If End Sub 代码解析：以上过程在工作表Sheets(“7”)的A列中查找InputBox函数对话框中所输入的值，并将查到单元格...
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 ...
[VBA]关于查找方法(Find方法)的应用(一),在Excel中,选择菜单“编辑”——“查找(F)…”命令或者按“Ctrl+F”组合键,将弹出如下图01所示的“查找和替换”对话框。在“查找”选项卡中,输入需要查找的内容并设置相关选项后进行查找,Excel会将活动单元格定位在查找到的相应
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 = wksToU...
Sub Find2() '查找的起始位置 Dim k k = Range("A:B").Find("A", AFTER:=Range("A5")).Row MsgBox k End Sub === Sub Find3() '在值中查找 Dim k k = Range("B:B").Find("SE", LookIn:=xlValues).Row MsgBox k End Sub === Sub Find31() '在公式中查找 Dim k k = Range...
1. Find方法的作用 Find方法用来在指定的单元格区域中查找包含某个特定的数据,若找到符合条件的数据,则返回包含该数据的单元格(Range对象);若未发现相匹配的数据(无匹配的单元格对象),则返回Nothing。 2. Find方法的语法 [语法] <单元格区域>.Find (What,[After],[LookIn],[LookAt],[SearchOrder],[SearchDi...
使用Find方法可以解决这个问题。代码如下▼ Sub FindLastRow()Dim rng As RangeSetrng = Cells.Find('*', _LookIn:=xlFormulas, SearchOrder:=xlByRows, _SearchDirection:=xlPrevious)IfrngIsNothingThenMsgBox'空表,无数据'ElseMsgBox'最后一行是:'& rng.EntireRow.RowEndIfEndSub ...