高手求助：多条件筛选的数据结果复制到新表

xiaoyu621

筛选条件：
1. TAT>7  
2.产品<>HHP
3.类型<>CI
的所有数据查询后复制到新的工作表中，VBA代码如何编写，和位高手协助！感谢！

序号

TAT

POST

ASC代码

ASC名称

接收号

产品

型号

顾客姓名

电话1

省

市

区/县

类型

1

16

温州POST

3483893

电家电维修部1

4033113425

AV

UA55ES8000JXXZ

蔡某某

1888888888

浙江

乐清市

温州

IH

2

16

南京POST

3483894

电家电维修部2

4033113426

WG

UA55ES8001JXXZ

蔡某某

1888888888

江苏

靖江市

泰州

CI

3

6

南京POST

3483895

电家电维修部3

4033113427

NPC

UA55ES8002JXXZ

蔡某某

1888888888

江苏

靖江市

泰州

CI

4

3

温州POST

3483896

电家电维修部4

4033113428

HHP

UA55ES8003JXXZ

蔡某某

1888888888

浙江

乐清市

温州

IH

5

6

南京POST

3483897

电家电维修部5

4033113429

AV

UA55ES8004JXXZ

蔡某某

1888888888

江苏

靖江市

泰州

CI

6

9

南京POST

3483898

电家电维修部6

4033113430

WG

UA55ES8005JXXZ

蔡某某

1888888888

江苏

靖江市

泰州

CI

7

4

温州POST

3483899

电家电维修部7

4033113431

NPC

UA55ES8006JXXZ

蔡某某

1888888888

浙江

乐清市

温州

IH

8

3

南京POST

3483900

电家电维修部8

4033113432

HHP

UA55ES8007JXXZ

蔡某某

1888888888

江苏

靖江市

泰州

PD

xiaoyu621

各位老师帮助解决~

高山雪原

Sub shaixuan()
Dim arr, brr(), x%, k%
arr = Range("a1").CurrentRegion
  ReDim brr(1 To UBound(arr, 1), 1 To UBound(arr, 2))
   For x = 4 To UBound(arr, 1)
    If arr(x, 2) > 7 Then
     If arr(x, 7) <> "HHP" Then
      If arr(x, 14) <> "CI" Then
       k = k + 1
        For y = 1 To UBound(arr, 2)
         brr(k, y) = arr(x, y)
        Next
       End If
      End If
     End If
    Next
   [p4].Resize(k, UBound(arr, 2)) = brr
End Sub

高山雪原

仅供参考！

xiaoyu621

太感谢了，但是 如何将所有的数据放到一张新的表格中呢？

高山雪原

是这样吗？
但还是不建议做这样的vba筛选，因为，你的筛选条件一定不会是一成不变的，一旦条件变化就需维护代码，其效率不一定比基础操作效率高。仅供参考。