macros从单元格中查找数据并将其replace为不同工作表上的数据
我为我的工作表使用了一个简单的macros/ VBA代码，我已经search了很多，但是我的VBA知识非常有限，所以我不确定在其他答案中编码是做什么的。
基本上我有两张纸，Sheet2有两列，列A有一个数字，即2158和列B有一个名字。 我想要这个macros做的是在Sheet1中我想要在单元格A1中键入一个数字，并在单元格B1中键入一个名称，然后macros查找表2中的Sheet1单元格A1中使用的数字，然后用Sheet1 B1replace名称sheet2中的相关名称？
希望是有道理的！
谢谢
丹尼尔
试试这个：
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 如果您对sheet1！b1中的名称不做任何操作，则可以使用VLOOKUP函数将相应的值从sheet2！b1拉到sheet1！b1。
在Sheet 1单元格B1中，input下面的公式。 = VLOOKUP（A1，Sheet2的一个：！B，2，FALSE）
然后，您可以在sheet1！A1上input您的编号，在sheet1！b1上显示sheet2！b2中的相应值。 如果找不到匹配，您将得到＃N / A。