求教！

bojue2

请问各位大神，如何用VBA实现，搜索sheet1中某一指定列内的关键字，复制关键字所在行（可能有很多行）的数据到sheet2中？

xiangyun@

上传附件并具体说明一下要求，不然，别人很难猜到你的想法。

lsc900707

欢迎加入EH大家庭！
问题不难，但是需要你上传附件。

编号__9527

不清不楚。。。。。。。。

xuminglei2003

脑补在sheet1工作表中找B列带“王”字的，复制整列到sheet2工作表中。

Sub lkkjj()
  Dim arr, i%, j%, rng As Range
  arr = Sheet1.[a1].CurrentRegion
  For i = 1 To UBound(arr)
     For j = 1 To UBound(arr, 2)
        If VBA.InStr(arr(i, 2), "王") Then
           If rng Is Nothing Then
              Set rng = sheet1.Cells(i, j)
           Else
              Set rng = Union(rng, sheet1.Cells(i, j))
           End If
        End If
     Next
  Next
  Sheet1.[a1:l2].Copy Sheet2.[a1]
  rng.Copy Sheet2.[a3]
End Sub

bojue2

如下表,设置一个窗体，以专业为关键字（比如艺术）输入后按搜索按钮，将所有专业为艺术的信息检索出并只截取其中的“姓名”,“性别”，“年龄”输出到一个窗体中

A             B       C      D      E               F              G             H        I
员工编号        姓名        性别        年龄        身份证        文化程度        毕业院校        专业        联系电话
A001        吴晓        男        22        1211231213        本科                 大学               艺术        19098993
A002        王坤        男        23        1211231213        本科                 大学             建筑        19098993
A003        李四        男        24        1211231213        本科                大学           计算机        19098993
A004        赵三        女        25        1211231213        本科                大学            金融        19098993
A005        钱五        女        26        1211231213        本科                大学            艺术        19098993
A006        孙六        女        27        1211231213        本科                大学            贸易        19098993
A007        白芷        女        28        1211231213        本科                大学           英语        19098993
A008        张七        女        29        1211231213        本科                大专           建筑        19098993
A009        李芷        男        30        1211231213        本科                大专          艺术        19098993
A010        钱蓝        男        31        1211231213        本科               大专          财务        19098993
A011        陆永        男        32        1211231213        本科               大专         会计                19098993
A012        季白        男        33        1211231213        本科               大专         贸易                19098993
A013        张宝庆        女        34        1211231213        本科        大专        数学                19098993
A014        吴奇隆        女        35        1211231213        本科        大专        金融                 19098993

mp_jiaju

使用sql，应该简单点吧

bojue2

mp_jiaju 发表于 2018-10-16 08:56
使用sql，应该简单点吧

怎么用啊，小白不懂啊

bojue2

自己顶！不要沉！