Set findValue = ActiveSheet.usedrange.FindNext(After:=findValue) ‘使用findnext继续往下查找,After参数是指定从哪个单元格的下一个开始查找,其中“:=”后面的findvalue是上一次查找到的位置对象变量,意思就是从这一个单元格的下一个单元格 If findValue.Address = a Then '如果当前的位置和最开始找到的位置一...
Private Sub CommandButton1_Click()Dim x As String, xArr, n As IntegerReDim xArr(0)x = ActiveSheet.OLEObjects("TextBox1").Object.Valuex = VBA.Trim(x)Dim FirstAddr As StringIf getRanges Is Nothing Then MsgBox "没有选择查找范围！", vbInformation, "错误提示": Exit SubDim R As RangeWit...
Set c = FlagWs.Cells.Find(what:=FindValue, LookIn:=xlValues, lookat:=xlWhole) If Not c Is Nothing Then FirstAddress = c.Address Do Irow = Irow + 1 With FindWs .Range("a1") = "查找数值:" & FindValue & "所在地址如下:" c.Hyperlinks.Add FindWs.Cells(Irow, 1), "", "'" & ...
Dim findValue As Range Set findValue = Worksheets("Sheet1").Columns("A").Find(what:="excelhome") MsgBox "第一个数据发现在单元格:" & findValue.Address Set findValue = Worksheets("Sheet1").Columns("A").FindNext(After:=findValue) MsgBox "下一个数据发现在单元格:" & findValue.Address ...
c.Value = 5 Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End If End With 经修改后的示例代码如下,即在原代码中加了一句错误处理语句On Error Resume Next,忽略所发生的错误。 Sub test1() Dim c As Range, firstAddress As String ...
使用find时，一般要加个结果判断的过程，如：Option Explicit Private Sub CommandButton1_Click()Dim BranchName As Range, TargetRow As Long Dim iFind As Range, i i = 1 Set BranchName = Worksheets(1).Range("A3:A34")Set iFind = BranchName.Find(Worksheets(2).Cells(i, 1).Value)I...
2. 在Excel中有一个查找的功能,可以定位姓名在源数据中的位置。 3. 在VBA中同样可以利用此功能,对应的就是Find方法。 在Excel文件,点击“开发工具”,打开Visual Basic,添加模块和过程,称之为“查找数据”。 4. 在此例中,我们通过学生姓名(H2单元格)作为条件,将查找的结果(学生的英语成绩)返回到I2单元格,针...
Different Ways to Find Range in Excel Method 1: Selecting the range manually Method 2: Using the Name Box Method 3: Using the Go To Command Method 4: Using Quick Analysis Tool Using Built-in Functions to Find Range in Excel Function 1: SUM() Function 2: AVERAGE() Function 3: MAX() ...
MsgBox"前一个数据发现在单元格"& findValue.AddressEndSub 5. 综合示例 [示例1]查找值并选中该值所在的单元格 [示例1-1] SubFind_First()DimFindStringAsStringDimrngAsRange FindString = InputBox("请输入要查找的值:")IfTrim(FindString) <>""ThenWithSheets("Sheet1").Range("A:A")Setrng = .Find...
我们借用一下 Excel VBA 编程开发应用系列 (十四)— VBA对Excel表内容的增删改查 的删除实例(具体可参考此章节),首先是显示内容所在的行数,然后删除整行。VBA代码如下: 操作数据内容如下: 用户界面及输入内容如下:点击确定,将删除此行内容。 04 Find函数的常用方法 Find函数常用的方法有:FindNext方法和FindPrevio...