Цикл VBA для поиска ссылки на одном листе и копирования данных ячейки в другой

Question

У меня есть две идентичные рабочие книги, содержащие одинаковые таблицы. Одна рабочая тетрадь, которую я даю другим пользователям для завершения своих обновлений, а другая я использую в качестве мастер-копии. Первый столбец таблицы в обеих книгах содержит ссылочный номер, и я хочу создать цикл, который проходит через рабочую книгу пользователей, соответствующую ссылочным номерам, и затем копирует данные в ячейку в 8-м столбце для этой ссылки на мою рабочую книгу. Идея состоит в том, чтобы избежать ручного копирования и вставки их обновлений в мою таблицу. Я просматривал примеры циклов, но я не могу найти способ запустить поиск и скопировать пасту.

Заранее спасибо за любую помощь в этом.

Answer 1

Я нашел ниже опубликовано в качестве ответа на другой вопрос здесь, который делает трюк: -)

Sub Test1 () Дим w1 как лист, w2 как лист Dim c As Range, FR As Long

Application.ScreenUpdating = False

Set w1 = Worksheets("Sheet1")
Set w2 = Worksheets("Sheet2")

For Each c In w1.Range("B3", w1.Range("B" & Rows.Count).End(xlUp))
    FR = 0
    On Error Resume Next
    FR = Application.Match(c, w2.Columns("B"), 0)
    On Error GoTo 0
    If FR <> 0 Then w2.Range("C" & FR).Value = c.Offset(, 1)
Next c
Application.ScreenUpdating = True

End Sub