我如何复制数据，如果我为一列中的每一行分配了一个数字，使用VBA第3列中的数字将该列数据映射到另一列？

Question

根据映射号，Name2的列数据应映射到Name列。

我不知道如何在vba中实现这个目标......请帮助我......

提前致谢

Answer 1

这应该是你之后的

Dim findMappingNo As Range
Dim mapNum As Integer

For i = 2 to 11

   Range("A" & i).Copy Destination:= Range("H" & i)

   mapNum = Range("D" & i).Value
   Set findMappingNo = Range("B2:B11").Find(what:=mapNum)

   If Not findMappingNo Is Nothing Then
      Range("C" & findMappingNo.Row).Copy Destination:= Range("I" & i)
   End if

Next i

如果您希望结果列表位于其他工作表上，只需将工作表名称放在范围的开头，即

Sheets("Sheet1").Range("A" & i).Copy Destination:= Sheets("Sheet2").Range("H" & i)