Данные по столбцам - упорядочить данные к друг другу

[PetroD]

Есть один столбец с числами. Есть второй столбец с меньшим количеством чисел, но все они встречаются в первом столбце. Как разбить второй столбец так, что бы числа встали напротив таких же чисел в первом столбце? Пример припарковал.
Жду вариантов. Вручную нереально, чисел более 6000.

[nilem]

Продолжаем массивы...

Option Explicit
Sub PetroD()
    Dim X(), Y(), i As Long, j As Long
    Application.ScreenUpdating = False
    X = Range("B4:B" & Cells(Rows.Count, 2).End(xlUp).Row).Value
    Y = Range("C4:C" & Cells(Rows.Count, 3).End(xlUp).Row).Value
    ReDim Preserve X(1 To UBound(X), 1 To 2)
        For i = 1 To UBound(Y): For j = 1 To UBound(X)
            If Y(i, 1) = X(j, 1) Then X(j, 2) = Y(i, 1): Exit For
        Next j: Next i
    With Range("G4").Resize(UBound(X), 2)
    .ClearContents: .Value = X: End With
    Application.ScreenUpdating = True
End Sub

В файле - зеленая кнопка.

[IgorGO]

см.вложение

[PetroD]

А как с этим. То же самое, только с добавлением столбцов.

[Serge 007]

Сообщение от PetroD

Жду вариантов.

Формулами.

[Serge 007]

Сообщение от PetroD

А как с этим. То же самое, только с добавлением столбцов.

Никакой разницы.

[PetroD]

Парни вы монстры. 3 варианта!

[Teslenko_EA]

Здравствуйте PetroD.
используя технологии применяемые при работе с базами данных, решение подобных задач не составит труда.
Евгений.

[PetroD]

Сообщение от Teslenko_EA

Здравствуйте PetroD.
используя технологии применяемые при работе с базами данных, решение подобных задач не составит труда.
Евгений.

Все круто, но вылезает ошибка 429

[Teslenko_EA]

Здравствуйте PetroD.
как объясняет документация:
Error 429 - ActiveX component can't create object or return reference to this object
проще говоря проверьте в системе регистрацию библиотеки ADO (ActiveXData Objects).
к проекту образца я подключал библиотеку версии 2.1, скорее всего в Вашей системе эта библиотека не зарегистрирована (об этом говорит MISSING, меню Tools / References), отключите её и подключите любую из зарегистрированных в системе библиотек - Microsoft ActiveXData Objects...
и только тогда образец будет достоин отзыва "..Все круто..".
Евгений.