如何使用vba循环浏览已过滤的表格并检查每一行是否在另一张纸中？

Question

I have 2 worksheets. Lets call them worksheet A and worksheet B. In worksheet AI automatically pull in a huge amount of data and apply the proper filters to narrow down to the critical data (see image)

this next part is where I need help:

1. loop through only the visible rows in sheet A
2. check if the first column matches any row in the first column of sheet b
3. if it does match then I need to check that the second column in that same row in sheet A also matches the second column in the matched row in sheet B.
4. if it passes both those test then I need to copy the whole row and append it to the end of the data in row B.

so far I have:

    with ThisWorkbook.Sheets(sheet_name) 
    Dim open_package As Range
    Set open_package = ThisWorkbook.Sheets("Open Packages").Range("A2", Range("A" & Rows.Count).End(xlUp))
    Dim rng3 As Range



    Dim rng_package As Range
    Set rng_package = Range("A1", Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible)
    Dim cl_package As Range


    For Each cl_package In rng_package.Rows
        For Each rng3 In open_package
            MsgBox rng3
            Debug.Print (cl_package.Cells(1) & " " & cl_package.Cells(2))
        Next rng3
    Next cl_package
End With

I am trying to troubleshoot the nested loop to see exactly in what way is it looping through everything.

Answer 1

Ivan!

I made a code to loop only visible rows from first table and lookup them in second table, when you find a match between Transaction and Package you append a line to second table

Sub LoopALL()

  Dim i As Long
  Sheets("A").Select
  Range("A1048576").End(xlUp).Select 'selects the last visible row
  LVR = ActiveCell.Row + 1

  While Cells(LVR, 1).EntireRow.Hidden = True
      LVR = LVR + 1
  Wend

  'End of Table, first row blank
  EoT = LVR

  For i = 2 To EoT
  Sheets("A").Select


      If Cells(i, 1).EntireRow.Hidden = False Then
        TRS = Cells(i, 1)
        PCK = Cells(i, 2)
        STS = Cells(i, 3)
        DES = Cells(i, 4)


        Sheets("B").Select
        Z = Range("A1048576").End(xlUp).Row

        For x = 2 To Z
          If Cells(x, 1).Value = TRS And Cells(x, 2).Value = PCK Then
             Cells(Z + 1, 1).Value = TRS
             Cells(Z + 1, 2).Value = PCK
             Cells(Z + 1, 3).Value = STS
             Cells(Z + 1, 4).Value = DES
          End If
        Next


      End If

  Next


End Sub