关于多表格筛选问题

rio123

各位大侠：
  有一个问题求助：
如下图，一个EXCEL表格中有4个窗口，格式都是一样的，想通过一个或多个条件将4个表格中所有符合条件的行全部提取到一个表格中来。多谢了
多表格筛选.rar (16.23 KB, 下载次数: 18)

2015-12-12 10:04 上传

点击文件名下载附件

phsu

Sub test2()
    Dim i As Integer
    Dim xRow As Integer
    Dim yRow As Integer
    Dim ShtName As String
    ShtName = Sheets(1).Range("A2")
    xRow = Sheets(ShtName).Range("A65536").End(xlUp).Row
    With Sheets(1)
        For i = 2 To xRow
            If Sheets(ShtName).Range("B" & i) = .Range("B2") And _
                Sheets(ShtName).Range("D" & i) = .Range("C2") Then
                yRow = .Range("A65536").End(xlUp).Row
                Sheets(ShtName).Range("A" & i & ":G" & i).Copy .Range("A" & yRow + 1)
            End If
        Next i
    End With
End Sub

rio123

phsu 发表于 2015-12-12 10:37
Sub test2()
    Dim i As Integer
    Dim xRow As Integer

非常谢谢您的解答，但是复制代码后出错，见下图
另外，能否麻烦将关键行注释一下代表的意思或者执行后达到效果。
再次谢谢！！

gbgbxgb

上个图片供参考（若有所启发的话），不提供代码：

amzxfgh9632

gbgbxgb 发表于 2015-12-12 11:42
上个图片供参考（若有所启发的话），不提供代码：

上代码呀，很想学习下哦

phsu

rio123 发表于 2015-12-12 10:47
非常谢谢您的解答，但是复制代码后出错，见下图
另外，能否麻烦将关键行注释一下代表的意思或者执行后达 ...

請確認A2的公司名稱是否填寫。

amzxfgh9632

phsu 发表于 2015-12-12 12:43
請確認A2的公司名稱是否填寫。

当公司为空时，筛选全部符合条件

rio123

phsu 发表于 2015-12-12 12:43
請確認A2的公司名稱是否填寫。

我试了一下，如果三个全部填写的话，可以筛选出来，但是点第二次之后，会一直往下叠加重复数据，将筛选条件改变之后筛选数据不会变，能否实现三个筛选条件只要填写任意一个都能筛选？？

流泪的小狼

学习了。。。

rio123

gbgbxgb 发表于 2015-12-12 11:42
上个图片供参考（若有所启发的话），不提供代码：

麻烦给个代码，谢谢！！