Excel工作表中列中字符串模式匹配的VBA代码

请张贴VBA代码

我们将在Excel表格中得到由17列组成的报告，我想在匹配表格1中“K”列的字符串模式后取出项目

下面是“K”列项目的示例

女主角 我是英雄，我是零，我是小人 英雄 维兰 女主角 我是英雄，我是零，我是小人 女主角维兰 英雄，比利安 演员 零 我是英雄，我是零

现在我已经对列“K”应用了过滤器，然后->文本过滤器->包含->然后给定模式*hero*zero*，它选择所有包含hero&zero的字符串

下面是为上述操作录制的宏

Sub Macro1()  
'  
' Macro1 Macro  
'  

'
    Columns("H:H").Select  
    Selection.AutoFilter  
    ActiveSheet.Range("$H$1:$H$12").AutoFilter Field:=1, Criteria1:= _  
        "=****hero*zero****", Operator:=xlAnd  
End Sub

现在我得到的结果在同一张表1的“K”列

我是英雄，我是零，我是小人 我是英雄，我是零，我是小人 我是英雄，我是零

我希望VBA代码执行上述操作，我希望上面的结果它应该包含17列，它们在Sheet2的sheet1中。 请在上面帮助我。

---

提前感谢。

我现在无法调试代码，但类似这样的操作应该可以：

Sub filter_and_copy()   
    Sheets("Sheet1").Range("K1").AutoFilter Field:=1, Criteria1:= _  
        "=*hero*zero*", Operator:=xlAnd 
    Sheets("Sheet1").Range("A:R").SpecialCells(xlvisible).Copy Destination:= _
        Sheets("Sheet2").Range("A1")
End Sub

---

我现在无法调试代码，但类似这样的操作应该可以：

Sub filter_and_copy()   
    Sheets("Sheet1").Range("K1").AutoFilter Field:=1, Criteria1:= _  
        "=*hero*zero*", Operator:=xlAnd 
    Sheets("Sheet1").Range("A:R").SpecialCells(xlvisible).Copy Destination:= _
        Sheets("Sheet2").Range("A1")
End Sub

---

neobee，现在你的问题更有意义了：

试试下面的方法

久经考验

---

neobee，现在你的问题更有意义了：

试试下面的方法

久经考验

---

+1按照建议努力改进问题：+1按照建议努力改进问题：感谢Siddarth，它工作得很好。谢谢你宝贵的时间谢谢Siddarth，它工作得很好。谢谢你宝贵的时间