Question

我有一些床单（主人，1,2,3）。

在下面的

中，您可以看到我的主表中的列 - 按顺序排列 ID1 ID2城市OLT街道号码

我需要从其他工作表复制到我的主文件数据，但首先 excel应该在其他工作表中找到ID1列（它是一团糟 - 没有按顺序），然后复制行。 1.在表1列ID1（A1）中查找，然后将数据复制到主表A2 2.在表1列ID2（B1）中找到，并将警察数据发送到主表B2等等我怎么能在循环中做到这一点？

Sub copy_data（）

   Dim b As Range
      Dim lastrow As Integer
lastrow = Cells(Rows.Count, 3).End(xlUp).Row + 1

Set b = Sheets("1").Rows(1).Find("ID1")

If b Is Nothing Then

    MsgBox "ID1 not found", vbInformation, "Goods not found"

Else

    Set b = Range(b.Offset(1), b.Offset(Rows.Count - 1).End(xlUp))
    b.Copy Destination:=Sheets("master").Range("A" & lastrow)

End If
 'id
 Dim wrb As Range
 Set wrb = Sheets("1").Rows(1).Find("ID2")

If wrb Is Nothing Then

    MsgBox "id2 not found", vbInformation, "Goods not found"

Else

    Set wrb = Range(wrb.Offset(1), wrb.Offset(Rows.Count - 1).End(xlUp))
    wrb.Copy Destination:=Sheets("master").Range("B" & lastrow)
  End If
End Sub

我需要调整代码来搜索其他工作表中的列（来自主文件A1：Q1）并将数据复制到主工作表。是循环它的方式。

感谢您的帮助

Answer 1

尝试以下修改，让我知道这是否是预期的输出。

valet port 8888

在其他工作表中查找列并复制数据循环

1 个答案: