条件筛选

falcon9999

想在工作表2中输入A列中的编码，相对输出对应列，请老师帮忙修改一下，部是默认从上往上搜索的第一个0的。
但我想要是为1的那行。

Sub 筛选()
Dim r, ARR, i, J, k, gonext
Application.ScreenUpdating = False
Set d = CreateObject("Scripting.Dictionary")
With ActiveSheet
     ARR = Worksheets("sheet1").[A1].CurrentRegion
     For J = 2 To UBound(ARR)
         d(ARR(J, 1)) = J
     Next
     r = .Range("A104587").End(xlUp).Row
          For i = 2 To r
          If d.exists(.Cells(i, 1).Value) Then
          J = d(.Cells(i, 1).Value)
            .Cells(i, 2) = ARR(J, 2)
            .Cells(i, 3) = ARR(J, 3)
            .Cells(i, 4) = ARR(J, 4)
            .Cells(i, 5) = ARR(J, 5)
            .Cells(i, 6) = ARR(J, 6)
            .Cells(i, 7) = ARR(J, 7)
         End If
     Next
End With
Application.ScreenUpdating = True
End Sub
表一

编码	名称	区	ITEM	数量	林	保留
980018155	面包	广州	5646455754	5	发	0
980018155	面包	上海	5646454654	4	地	1
980018155	面包	北京	5646433154	5	地	0
980018155	面包	深圳	5646411555	4	地	0

爱疯

如果没上传附件，别人看到的了也不好理解和回复呀

falcon9999

爱疯 发表于 2019-3-20 11:23
如果没上传附件，别人看到的了也不好理解和回复呀

爱疯老师好，附件上传了，麻烦老师帮忙看看，谢谢！

爱疯

Sub 筛选()
    Dim r, ARR, i, J, k, gonext
    Application.ScreenUpdating = False
    Set d = CreateObject("Scripting.Dictionary")
    ARR = Worksheets("sheet1").[A1].CurrentRegion
    For J = 2 To UBound(ARR)
        If ARR(J, 7) = 1 Then d(ARR(J, 1)) = J
    Next

    Sheets(2).Select
    r = Range("A104587").End(xlUp).Row
    For i = 2 To r
        If d.exists(Cells(i, 1).Value) Then
            J = d(Cells(i, 1).Value)
            Cells(i, 2) = ARR(J, 2)
            Cells(i, 3) = ARR(J, 3)
            Cells(i, 4) = ARR(J, 4)
            Cells(i, 5) = ARR(J, 5)
            Cells(i, 6) = ARR(J, 6)
            Cells(i, 7) = ARR(J, 7)
        End If
    Next
End Sub



表1里的每种编码，只可能有1条记录的G列是1吗？

falcon9999

爱疯 发表于 2019-3-20 11:51
Sub 筛选()
    Dim r, ARR, i, J, k, gonext
    Application.ScreenUpdating = False

是的。老师，相同编码的G列为1的，只有1条。原来在判断 IF 加在上面就可以了，向老师学习了。谢谢！

爱疯

自动筛选表1的g列的值是1的，不是简单些。

falcon9999

爱疯 发表于 2019-3-20 12:43
自动筛选表1的g列的值是1的，不是简单些。

感谢老师的帮助！
表格数据很大，我经常需要查找几个或者十几个，使用筛选太卡，而且还慢，用宏是最准最快的。