如何用宏实现 excel 中的查找功能-excel宏 查询,excel宏应用实例

最简单的用下抄面这段代码：
查找包含2的单元格 全部替换成1 如【袭2个】替换成【1】 ：
Cells.Replace What:="*2*", Replacement:="1"
如果只把知 【2个】 的道2 单独替换【1个】 的话，就把两边的*号去掉就可以了

用下面抄代码袭吧
Sub 查找百()
t = TextBox1.Text
Sheets("sheet2").Select
For Each a In ActiveSheet.UsedRange
    b = Format(a.Value)
    If Format(a.Value) = t Then a.Select: Exit Sub
Next
Sheets("sheet3").Select
For Each a In ActiveSheet.UsedRange
    b = Format(a.Value)
    If Format(a.Value) = t Then a.Select: Exit Sub
Next
Sheets("sheet1").Select
MsgBox "没找到度"
End Sub

添加
X = WorksheetFunction.CountIf(Sheets("数据百存储度页面中内").Range("B:B"), [E6])
If X = 0 Then
MsgBox "不存在容"
Else
MsgBox "存在"
End If

因没有zhidao具体内容，可以参照下回面程序修改：答
Sub 查找搜索()
Dim MyArr, LastRow
LastRow = Sheet2.Cells(Sheet1.Rows.Count, 1).End(xlUp).Row
MyArr = Sheet2.Range("A1:A" & LastRow)
For i = 2 To LastRow
TmpRow = Application.Match(MyArr(i, 1), Sheet1.Range("B:B"), 0)
If Not IsError(TmpRow) Then Sheet2.Cells(i, 3) = Sheet1.Cells(TmpRow, 1)
Next i
End sub

本文标签：excel宏应用实例(9)excel宏 查询(1)