如何用代码实现VBA使用loop嵌套实现从表里找东西放到另一个表里

可以使用以下代码实现：

Sub CopyData()
    Dim srcSheet As Worksheet, destSheet As Worksheet
    Dim srcLastRow As Long, destLastRow As Long
    Dim srcRow As Long, destRow As Long

    ' 设置源表格与目标表格
    Set srcSheet = Worksheets("Sheet1")
    Set destSheet = Worksheets("Sheet2")

    ' 获取源表格最后一行的行号
    srcLastRow = srcSheet.Cells(Rows.Count, "A").End(xlUp).Row

    ' 初始化目标表格行号
    destRow = 1

    ' 循环遍历源表格
    For srcRow = 1 To srcLastRow
        ' 判断是否需要复制该行数据
        If srcSheet.Cells(srcRow, "B").Value = "需要找的东西" Then
            ' 将该行数据复制到目标表格中
            destLastRow = destSheet.Cells(Rows.Count, "A").End(xlUp).Row
            destSheet.Range("A" & destLastRow + 1 & ":D" & destLastRow + 1).Value = srcSheet.Range("A" & srcRow & ":D" & srcRow).Value
            destRow = destRow + 1
        End If
    Next srcRow
End Sub

这段代码会从名为 "Sheet1" 的表格中寻找包含需求信息的行，并将其复制到名为 "Sheet2" 的表格中。需要修改代码中的目标单元格范围、需求信息关键字和数据表格名等信息。