Question

如何利用VBA程序语言在EXCEL表格中的同一列中筛选出包含多个“或”关系的值。

例如在源表中H列（详细描述列）筛选出包含“燃”，“烧”，“爆”，“炸”，“烟”，“火”6个关键字中任意一个的单元格，并选中该单元格所在整行并复制粘贴到新表中。
已经试过AutoFilter,结合数组Array(“燃”，“烧”，“爆”，“炸”，“烟”，“火”)进行，程序能运行，但是筛选出来结果为空，实际不应为空。
给个示例代码如下：

第一组（2个或关系的词组（热，烫））：（可以按照要求运行，我现在要把两个词变成六个词或关系）
Sheets("ExportData").Select

ActiveSheet.Range("$A$1:$at$5001").AutoFilter Field:=8, Criteria1:="=*烫*", _
Operator:=xlOr, Criteria2:="=*热*"
'复制筛选信息
ActiveSheet.Range("A1:At5000").Select

Selection.Copy
'新建以筛选关键词命名的表
Set sht = Sheets.Add

sht.Name = "发烫发热"
'粘贴复制的筛选信息
Sheets("发烫发热").Select

ActiveSheet.Paste

Answer 1

这个意思？

追问

不是，我最终目的不是需要找到这些关键字，这些关键字主要是帮助我定位这张表格中的行。我是要在这张表里面的H列进行多组关键词的筛选，上面6个关键字是一组，所以最终我要做的是筛选出来对应关键字所在的单元格并定位之后，需要选中该单元格所在整行，并把这些整行复制到另一新建的表格中去，每一组要新建表格。

追答

追问

嗯，差不多这个意思了。不过因为我是多组关键字一起筛选的，需要整合到一个VBA程序里面，所以能否麻烦提供一下代码。 我去修改一下粘贴位置到新建表格里面后试运行一下，十分感谢。（本人EXCEL小白，待运行成功之后采纳最佳，谢谢）

追答

邮箱多少？

追问

QQ邮箱：824845251@qq.com。
明天才能验证，有疑问可能再行咨询，十分感谢。

追答

见邮件

Answer 2

在VBA中用 SQL吧