Vba基于搜索动态值从多个工作表复制行并将其粘贴到另一个新工作簿中时出现问题

Question

Sub multiple()

    Workbooks("A.xlsx").Activate
    lastRow11 = Range("I" & Rows.Count).End(xlUp).Row

    For i = lastRow11 To 1 Step -1

        If i <> "" Then

            Value = Workbooks("A.xlsx").Worksheets(1).Cells(i, "I").Value
            Workbooks("B.xlsx").Activate
            Worksheets(1).Select

            Set DynRange = Selection.Find(What:=Value, LookIn:=xlFormulas, _
          LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
          MatchCase:=False, SearchFormat:=False)

            If DynRange Is Nothing Then
                 MsgBox ("No codes found")
            Else
                cell.EntireRow.Copy
                Workbooks.Add
                ActiveSheet.Paste
            End If
        End If
    Next i
End Sub

在上面提到的代码中，我试图在工作簿B中搜索"DynRange"值（每次都是动态的）。目的是从工作簿B的所有工作表中复制特定列具有这些值的行并粘贴它到一个新的工作簿。如果工作表B有5个工作表，则新工作簿应分别有5个工作表。但是必须根据"DynRange"值过滤这5个工作表中的数据。

此外，为下一个"DynRange"值。应添加新工作簿，其余过程应相同。

我如何优化执行此任务？我的代码没有按预期工作。

Answer 1

用它来查找所有匹配项：

If DynRange Is Nothing Then
     MsgBox ("No codes found")
Endif
Do While Not DynRange Is Nothing
     'process here the recent hit
     Set Fnd = Selection.FindNext(DynRange)
Loop

如果我正确理解您的需求，您想要处理B.xlsx中的所有工作表，但您只能参考工作表（1）。我会避免使用.Selection。您也可以考虑使用Sheets.Add而不是Workbooks.Add。