1

我正在为我正在使用的工作表寻找一个有希望的简单宏/VBA 代码，我进行了广泛的搜索，但我的 VBA 知识非常有限，所以我不确定其他答案中的编码在做什么。

基本上我有两张纸，Sheet2 有两列，A 列有一个数字，即 2158，B 列有一个名称。我想要这个宏做的是在 Sheet1 中我想在单元格 A1 中输入一个数字，在单元格 B1 中输入一个名称，然后宏在工作表 2 中的 Sheet1 单元格 A1 中找到该数字，然后将来自 Sheet1 B1 的名称替换为sheet2中的对应名称？

希望这是有道理的！

谢谢

丹尼尔

4

2 回答 2

0

如果您不对 sheet1!b1 中的名称进行任何操作，则可以使用 VLOOKUP 函数将相应的值从 sheet2!b1 拉到 sheet1!b1。

在 Sheet1 单元格 B1 中，输入以下公式。=VLOOKUP(A1,Sheet2!A:B,2,FALSE)

然后您可以在 sheet1!A1 上输入您的号码，sheet2!b2 中的相应值应显示在 sheet1!b1 上。如果没有找到匹配项，您将获得#N/A。

于 2013-09-05T13:50:47.573 回答
0

试试这个：

Sub dural()
    Dim s1 As Worksheet, s2 As Worksheet
    Set s1 = Sheets("Sheet1")
    Set s2 = Sheets("Sheet2")
    v1 = s1.Range("A1")
    v2 = s1.Range("B1")
    s2.Activate
    For Each r In Intersect(ActiveSheet.UsedRange, Range("A:A"))
        If r.Value = v1 Then
            r.Offset(0, 1).Value = v2
        End If
    Next
End Sub
于 2013-09-05T14:01:09.963 回答