1、利用INPUTBOX（）获得想查询的内容，并存放到局部变量INPUTDATA 中 2、用DIM MYRANGE AS RANGE 和以下语句组合进行查找 Set MyRange = Sheets("工作表名称").Cells.Find(what:=INPUTDATA, After:=ActiveCell, LookIn:=xlValues, lookat:=xlPart, searchorder:=xlByRows, searchdirection:=xlNext,...
End If If Sheet1.Cells(M, 12).Value="搜寻值" Then '第12列代表合并后的L到S列 Msgbox Sheet1.Cells(M, 11).Value '返回第K列内容 End If Next 2、把几列或几行进行合并居中后，这个单元格应该如何用坐标表示呢？？是以合并单元格中那个最左最上角的单元格坐标为准，如上面第一...
If iStr <> "" Then With Range("A1:A10")Set rng = .Find(iStr, after:=Range("A10"), lookat:=xlPart)If Not rng Is Nothing Then addrs = rng.Address(0, 0)Do msg = IIf(msg = "", rng.Address(0, 0), msg & "," & rng.Address(0, 0))Set rng = .FindNext(rng)...
在实际操作中，我们经常会查找特定的单元格，然后对其进行相应的操作。我们也经常会对一些单元格进行替换操作。这些操作在VBA中都有相应的方法来实现：Find方法 FindNext方法 Replace方法 这些方法都非常有用，可以说，很多实用程序都是建立在这些方法的基础上的。因此，我们将对这些方法进行详细的解。Excel...
参数错了。这个函数的参数只能是搜索范围内的单个单元格，而你的c(1)在前面得到的是查找到第一个单元格的地址，是一个字符串变量。参数应该改为：After:=Range(c(1))
Set Add = .Find(what, , , xlWhole)If Add Is Nothing Then MsgBox ("当前工作表未找到符合条件单元格,请减少关键词再试")End End If add1 = Add.Address Do Range(Add.Address).Interior.ColorIndex = 3 i = i + 1 j = j & Add.Address & ","Set Add = .FindNext(Add)Loop ...
你要做什么呢？如 set rng = range("A:A").find("查找的内容") 这个不管找到找不到都不会弹出对话框的。找不到时rng=nothing
For Each rng In Intersect(ActiveSheet.UsedRange, Columns("B")) If InStr(1, rng.Text, iStr, vbBinaryCompare) Then rng.Offset(, 3) = newStr End If NextEnd Sub实际应用时，修改iStr和newStr两个变量就可以了。---Excel资深初学者 ...
查看代码”。3、然后在弹出来的窗口中，点击输入代码：Sub AAA()Dim I As Long For I = 1 To 1000 '行 范围，自己修改 If InStr(Range("A" & I), "invalidstatus") > 0 Then Range("A" & I).Font.Color = vbRed End If Next End Sub 4、然后进行保存，点击运行就完成了。
036、单元格基础操作(find、findnext) 037、VBA合并单元格(merge) 038、用VBA创建超链接(hyperlinks.add) 039、用VBA提取超链接(Hyperlink.address) 040、用VBA实现朗读功能(speak) 041、新建、打开、保存、关闭工作簿 042、根据分公司拆分工作表到工作簿 043、工作表的基本操作(新建、命名、移动、删除) 044、给...