Function Microsoft Excel将名称替换为其ID

我想知道如何用B列中的ID替换G列和H列中的名称。我正在使用Microsoft Excel 2010。 提前感谢你的帮助

这就是我指的文件

---

您可以在

I1

中使用以下公式：

=VLOOKUP(G1,$A$1:$B$6,2,0)

并将其向右和向下拖动。然后您可以选择结果，复制它并在“粘贴特殊”->“值”的帮助下粘贴到

G1:H6

---

使用以下子程序

Sub GetID(Rng As Range)
    Dim Cell As Range
    Dim NameIDRng As Range
    Set NameIDRng = Range("A:B")
    For Each Cell In Rng
        On Error Resume Next
        Cell.Value = Application.VLookup(Cell.Value, NameIDRng, 2, False)
    Next Cell
End Sub

请这样称呼上述情况：

Sub Test()
    GetID Range("F1:G6")
End Sub

运行后的屏幕截图：

---

希望这能有所帮助。

感谢您的快速回复，尽管我使用了simoco先生的解决方案，因为我只是excel的初学者，您的解决方案似乎也很好。