Microsoft Excel用其ID替换名称

Question

我想知道如何用列B中的各自ID替换G列和H列上的名称。我正在使用Microsoft Excel 2010。 在此先感谢您的帮助。

这是我引用的文件。

Answer 1

使用以下子程序。

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

运行后

屏幕截图：

希望这有帮助。

Answer 2

您可以在I1中使用以下公式：

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

并向右和向下拖动它。然后您可以选择结果，复制并粘贴G1:H6并帮助“粘贴特殊” - ＆gt; “值”