Macro, чтобы найти данные из ячейки и заменить данные на другом листе

Question

Я после того, как я надеюсь, что код Macro/VBA для моего листа, который я использую, я искал далеко и широко, но мои знания VBA довольно ограничены, поэтому не уверен что кодирование делает в других ответах.

В основном у меня есть два листа, Sheet2 имеет два столбца, столбец A имеет число в нем, то есть 2158, а столбец B имеет имя в нем. То, что я хочу, чтобы этот макрос делал, - в Sheet1, я хочу ввести число в ячейке A1 и имя в ячейке B1, а затем макрос найдет этот номер, используемый в Sheet1 Cell A1 на листе 2, а затем заменит имя из Sheet1 B1 на корреспондирующее имя в sheet2?

Надейтесь, что имеет смысл !!

Благодаря

Daniel

Answer 1

Дайте это попробовать:

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 

Answer 2

Если вы что-нибудь с именем не делать в sheet1! B1, вы можете вытащить соответствующее значение из sheet2! B1 листа1! B1 с помощью функции ВПР.

В Sheet1 Cell B1 введите приведенные ниже формулы. = VLOOKUP (A1, Sheet2! A: B, 2, FALSE)

Затем вы можете ввести свой номер на листе1! A1, соответствующее значение из листа2! B2 должно отображаться на листе1! B1. Если поиск не найден, вы получите # N/A.