Question

我正在使用我希望使用的简单的宏/ VBA代码，我已经搜索了很多但我的VBA知识非常有限，所以我不确定编码在其他答案中做了什么。

基本上我有两张纸，Sheet2有两列，A列中有一个数字，即2158，B列中有一个名字。我希望这个宏做的是在Sheet1中我想在单元格A1中输入一个数字，在单元格B1中输入一个名称，然后宏找到在Sheet1中的Sheet1单元格A1中使用的数字，然后替换Sheet1 B1中的名称sheet2中的相应名称？

希望有意义!!

由于

丹尼尔

Answer 1

如果您对sheet1！b1中的名称没有任何操作，可以使用VLOOKUP函数将相应的值从sheet2！b1拉到sheet1！b1。

在Sheet1 Cell B1中，输入以下公式。 = VLOOKUP（A1，Sheet2的一个：！B，2，FALSE）

然后你可以在sheet1上输入你的号码！A1，来自sheet2的相应值！b2应该显示在sheet1！b1上。如果找不到匹配项，您将获得#N / A.

Answer 2

尝试一下：

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

宏从单元格中查找数据并替换不同表单上的数据

2 个答案: