If Not rng Is Nothing Then Msgbox “查找到了”Set rng = .Range("B1:E1000").FindPrevious(rng)If Not rng Is Nothing Then Msgbox “再次查找到了”END IF END IF END WITH END SUB 代码的解析说明：执行上述代码后，将在工作表Sheets("8")的Range("B1:E1000")中查找含有a的单元格。加入查找到则...
Find方法如果没查到单元格，则rng对象就为Nothing，也就是空的对象，这种情况下我们使用针对rng的方法、属性如rng.Select、rng.value就会报错：所以为了避免查不到数据而产生的报错，我们一般需要使用一个If语句来判断rng是否为Nothing：If Not rng Is Nothing ThenRng.SelectElseMsgBox “没找到!”End If 这里的判别...
If Not Rng Is Nothing Then 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函数对话框...
Dim rng As Range '声明对象变量 Dim firstRng As String '声明字符串变量用来存放变量地址 '将查找到的第一个单元格赋值给变量 Set rng =Range("A1:D3").Find(What:="1", LookIn:=xlValues) '判断是否找到了单元格 If Not rng...
Rng.Parent.UsedRange, Rng) If Not Rng Is Nothing Then arr1 = Rng.Value Set Rng = ...
If Not rng Is Nothing Then Msgbox “查找到了” END IF END WITH END SUB 代码的解析说明:执行上述代码后,将在工作表Sheets("8")的Range("B1:E20")中查找含有a的单元格。加入查找到则返回提示“查找到了” 越简单的事物往往越容易理解,简单的过程组合起来就是一个复杂的过程,我们要先认真掌握这些简单的...
=xlValues) ' 如果找到了数据 If Not rng Is Nothing Then firstAddress = rng.Address Do ' 在这里可以对找到的数据进行处理 MsgBox "找到了 " & targetValue & " 在单元格 " & rng.Address ' 继续查找下一个匹配项 Set rng = rng.FindNext Loop While Not rng Is Nothing And rng.Address <> ...
代码语言:vba 复制 Sub RangeSelectionDialog() Dim rng As Range ' 显示范围选择对话框 Set rng = Application.InputBox("请选择一个范围", Type:=8) ' 处理选择的范围 If Not rng Is Nothing Then MsgBox "您选择的范围是: " & rng.Address Else MsgBox "您没有选择任何范围" End If End Sub ...
If Not Intersect(rngA.Cells(1).EntireRow, rngB) Is Nothing Then xCol = rngB.Column For Each r In rngA.SpecialCells(xlCellTypeVisible).Areas ActiveSheet.Cells(r.Row, xCol).Resize(r.Rows.Count, r.Columns.Count).Value = r.Value Next '如果...
If Not rng Is Nothing Then fristmyfind = rng.Address Do Until rng Is Nothing Or Not bcontinue .Range("A" & a) = rng.Text a = a + 1 Set rng = .Range("B1:E20").FindPrevious(rng)If rng.Address = fristmyfind Then bcontinue = False Loop End With End Sub 代码截图：上述代码运行...