查找多个匹配项并将 B 列中的信息导出到匹配工作表中的同一列

Question

我会尽量用最好的方式解释这一点：

我有一个名为“设备清单”的 ws，它是库存概览。我还有几个称为“请求列表 1”、“请求列表 2”等的 ws。 “设备清单”包含每个项目的序列号，但“请求清单”包含除序列之外的所有信息。

我有一个调用可用工作表（“请求列表”）的用户窗体，然后我可以选择合适的。

我还设法在 A 列“设备列表”中创建了一个 DoubleClick“检查”功能，基于此信息我想：

1. 当按下“导出”按钮时，我希望它将“设备列表”中的 C、D、E 和 F 列中的信息与我选择的“请求列表”中的相同列进行比较。 (ListBox1.Value)

2. 然后根据 A 列中的“检查”，从“设备列表”中复制唯一的“序列”（B 列），并将其粘贴到“请求列表”中找到的匹配行和列中。

3. 然后将“请求列表”（H1）中的“位置”带到“设备列表”中的位置列 我已经开始研究宏，但无法提出任何有用的东西。

请了解我在 VBA 方面的技能有限，但我有兴趣了解更多信息，如果有人可以帮助我，我将不胜感激。

我已经成功了，所以它会根据 col A 中的信息复制行这是我目前所拥有的：

Private Sub cbnExport_Click()

    For Each Cell In Sheets("Equipment List").Range("A4:A9999")
        If Cell.Value = ChrW(&H2713) Then
            matchRow = Cell.Row
            Rows(matchRow & ":" & matchRow).Select
            Selection.Copy
        
            Sheets(ListBox1.Value).Select
        
            Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial 
    Paste:=xlPasteValues
                
            Sheets("Equipment List").Select
    
        End If
    Next

     Worksheets("Equipment List").Columns("A").ClearContents


    Sheets(ListBox1.Value).Select

    Application.ScreenUpdating = True

    Unload Me

End Sub

The process and what i am hoping to achieve

Answer 1

您的代码当前正在查看每一行并检查其中的一列。

For Each Cell In Sheets("Equipment List").Range("A4:A9999")
    If Cell.Value = ChrW(&H2713) Then     'checks value in column A only
        matchRow = Cell.Row
        ' do the rest    
    End If
Next

有很多方法可以检查其他列。这是一种方法：

For Each Cell In Sheets("Equipment List").Range("A4:A9999")
    
    Dim ColA As String   ' place holders for Column A,B,C and D
    Dim ColB As String
    Dim ColC As String
    Dim ColD As String


   ' now, just fill in the values from current cell and the neighbors of it

   ColA = Cell.Value
   ColB = Cell.Offset(0, 1).Value  'one cell to the right of column A is B
   ColC = Cell.Offset(0, 2).Value  'two cells to the right of A is C
   ColD = Cell.Offset(0, 3).Value  'three cells to the right of A is D

    If ColA = ChrW(&H2713) And ColB = "Criteria 9" And ColC = "22 1/2" And ColD = "22 1/2"  Then
        'we have matched all four columns
        matchRow = Cell.Row

        ' do other work here
        
    End If
Next

我在If-Then 块中硬编码了ColB、ColC 和ColD 的值。您将需要替换它们以与您匹配它们的对象进行动态比较。