Question

我正在尝试创建一个宏，我可以执行以下操作：

基于工作表1中B列单元格中的值：

一个。在B列的工作表2中搜索相同的相应值

湾将工作表1中的列Z中的数据传输到搜索到的相应值
行的工作表2中的列Z.
℃。如果搜索相应的值不返回任何内容，请转到工作表1中B列中的下一个单元格，然后重复到工作表1中列中的最后一个单元格。

以下是我到目前为止创建的代码，但它不传输数据。

Sub TransferDataMaster(rw)
Sheets("Sheet 1").Activate
LastRow = Sheets("Sheet 1").Range("B" & Rows.Count).End(xlUp).Row

For rw = 2 To LastRow
If Range("B" & rw).Value = "AA" Then Application.Run "TransferData", "AA" rw
If Range("B" & rw).Value = "BB" Then Application.Run "TransferData", "BB", rw
Next rw

End Sub

--------------------------------------------

Sub TransferData(Arg1, rw)

   DataValue = Sheets("Sheet 1").Range("Z" & rw).Value

   Sheets("Sheet 2").Activate
   Range("B2:B1000").Find(CStr(Arg1), LookIn:=xlValues).Activate
   DTRW = ActiveCell.Row
   Range("Z" & DTRW).Value = CStr(DataValue)

End Sub

非常感谢任何建议或协助。非常感谢，非常感谢。

Answer 1

尝试在表2中的Z列中使用VLOOKUP公式：

查找值 - 表2中B列的单元格
表格数组 - 来自表格1的B：Z的范围
Col_index_num - 工作表1中B的列Z列数
范围查找 - 错误

根据工作表2中的数据在工作表1中查找相应的数据，并将辅助数据传输到工作表2

1 个答案: