vba模糊查找输入like

Sub MySearch()

Dim ws(6) As Worksheet

Dim c1 As Range, c2 As Range

Dim r

    Set ws(1) = Worksheets("Sheet1")     请自行修改为实际的工作表名

    Set ws(2) = Worksheets("Sheet2")     请自行修改为实际的工作表名

    Set ws(3) = Worksheets("Sheet3")     请自行修改为实际的工作表名

    Set ws(4) = Worksheets("Sheet4")     请自行修改为实际的工作表名

    Set ws(5) = Worksheets("Sheet5")     请自行修改为实际的工作表名

    Set ws(6) = Worksheets("Sheet6")     请自行修改为实际的工作表名

    ws(6).Cells.Clear

   

    Set c2 = ws(6).Range("A1")

   

    For r = 1 To 1000    由于未说明Sheet5中A列关键字的行数,且其中有空行,请自行修改为实际的行数

        Set c1 = ws(5).Range("A" & r)

        If c1 Like "1*" Then

            ws(3).Cells.Find(c1, lookat:=xlWhole).EntireRow.Copy Destination:=c2

        ElseIf c1 Like "05*" Then

            ws(1).Cells.Find(c1, lookat:=xlWhole).EntireRow.Copy Destination:=c2

        ElseIf c1 Like "0*" Then

            ws(2).Cells.Find(c1, lookat:=xlWhole).EntireRow.Copy Destination:=c2

        ElseIf c1 <> "" Then

            ws(4).Cells.Find(c1, lookat:=xlWhole).EntireRow.Copy Destination:=c2

        End If

        Set c2 = c2.Offset(1, 0)

    Next r

End Sub

妖精的尾巴521话 假凤虚凰1947电影 基金净值100020 fob cif风险转移 浪涌保护器kfc3 40 4p win10 xinlinx cable 联想a1-07论坛 heaven exo中文歌词 ps长条光束效果怎么做 耿飚之女耿弘简历 空客320和321哪个好 crypto 32安装包 养鬼为祸 书卡是什么 上海虹口区金逸影城 唯美古风青花瓷图片 kidney bean是什么意思 n7108刷recovery下载 30岁用什么化妆品好呢 后宫甄嬛传游戏 新西兰fresco羊奶粉 王尼玛真名叫什么 怎么写汉字爱会 伏见稻荷大社要逛多久 2017年9月三亚有台风吗 midea 美的t3 l381b dsp28335 以太网通讯 4minute队长南智贤 符合要求英文怎么说 字号与磅值对应关系 罗德岱尔研修学院 假的

Copyright 满意通 Some Rights Reserved

如反馈或投诉等情况联系:une35498#163.com