как написать макрос, копирующий столбец из одной книги в другую?

[mariyavaryanitsa]

Необходимо из второй книги скопировать столбец G в первую книгу в столбец J, но так, чтобы был корректен столбец B (т.к. ячейки столбца B в книге2 не совпадают с ячейками столбца B в книге1). Ниже вложены файлы в книге1 уже так как должно быть (пользовались функцией ВПР). Буду очень благодарна всем откликнувшимся.

[mariyavaryanitsa]

Я придумала, надо пробежаться по всем ячейкам столбца B книги 2, если они совпадают с ячейками столбца В книги 1, тогда столбцу J присваиваем значения ячеек столбца G книги второй. Только как это все на языке VBA написать помогите пожалуйста.

[IgorGO]

спасибо, натолкнули на мысль. воспользовался любезно изложенным Вами алгоритмом.

Sub CopyG2toJ1()
  Const wb1 As String = "книга 1.xls"
  Const wb2 As String = "книга 2.xls"
  Dim r As Long, rg As Range
  Workbooks(wb1).Activate
  For r = 2 To Cells(Rows.Count, 2).End(xlUp).Row
    With Workbooks(wb2).Worksheets(1)
      Set rg = .Columns(2).Find(Cells(r, 2), lookat:=xlWhole, LookIn:=xlValues)
      If Not rg Is Nothing Then
        Range("J" & r) = rg
      End If
    End With
  Next
End Sub

[mariyavaryanitsa]

большое спасибо, буду пробовать)

[Hugo121]

Тут нужно на словаре (dictionary) и массивах делать - особенно если данных тысячи.
Таких кодов тут уже было тоже тысячи...
Алгоритм такой - сперва одним циклом запоминаем в словаре данные из второй книги, затем вторым циклом их размещаем в первой. Можно даже без массивов, если не торопитесь

[mariyavaryanitsa]

IgorGO, Ваш макрос копирует мне почему то столбец B. А мне надо, если B1(первой книги) = B2 (второй книги), тогда G1 (второй)=J1(первой). И так по всем ячейкам столбца В.

[mariyavaryanitsa]

удалено пользователем)

[IgorGO]

извините, ошибся.
исправте

Range("J" & r) = rg

на

Range("J" & r) = rg.offset(,5)

и будет Вам счастье. хотя чтобы добиться счастья лучше постоянно повторять мантру "Харе Криш..."

[DiemonStar]

Ну я бы перед работой отсортировал обе таблицы по поисковому столбцу. Тогда каждый следующий поиск можно будет делать от последнего найденного значения. при больших габаритах таблиц будет здорово экономить время.

[mariyavaryanitsa]

Оу, IgorGO, спасибо Вам спасибо огромное, я так рада, я два дня какую-то муть писала, Вы видели мое рукоделие?! ахахаха