ПОИСК, ВСТАВКА В открытых книгах

[danika24]

Здраствуйте есть 25 открытых книг в каждой книге 35 столбцов, есть эталонная таблица с данными. Необходимо чтобы в эталонной таблице брал 1 строку второго столбца и искал в во всех открытых книгах данный номер и вставлял всю строку в ту таблицу .

[Казанский]

Это эталонная таблица? Т.е. надо искать в каждой открытой книге на первом листе во 2-м столбце текст 56МС517723090620100Z и вставлять в эту строку данные из A2:AG2 эталонной таблицы?

[Казанский]

Пробуйте, макрос предназначен для размещения в эталонной книге.

Sub bb()
Dim x, wb As Workbook, c As Range, r1&, v As Range
x = [B2]
Set v = Range("A2", Cells(2, Columns.Count).End(xlToLeft))
For Each wb In Workbooks
    If Not wb Is ThisWorkbook Then
        With wb.Worksheets(1).Columns("B")
            Set c = .Find(x, , xlValues, xlWhole)
            If Not c Is Nothing Then
                r1 = c.Row
                Do
                    v.Copy c.Offset(, -1)
                    Set c = .FindNext(c)
                Loop Until c.Row = r1
            End If
        End With
    End If
Next
MsgBox "Готово"
End Sub

[danika24]

Макрос не вставляет информацию в другие книги все одинаковые по количеству и информации.

[Казанский]

У меня работает! Выкладывайте несколько книг + эталонную.

[danika24]

Вот примеры

[danika24]

А еще пожалуста мне нужен отдельный код чтобы удалять повторяющиеся строки но только если все данный в строке 100 % одинаковые,извиняюсь конечно но у меня таких таблиц получается много и в каждой по 60т, и там много двойных помогите пожалуста.

[danika24]

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

[danika24]

Помогите хоть кто нибудь пожалуста у меня срок заканчивается для обработки и данных милион.

[danika24]

ЛЮДИ ну помогите кто нибудь а