Как выделить нужные числа из списка и переместить их в соседнюю ячейку?

[Smile2007]

Помогите, пожалуйста! Есть огромный список id в числовом формате примерно 50000 записей, они все не по порядку и в разнобой и много повторяются. Мне нужно чтоб я задавала определённое число, эти все числа выделялись и выдвигались вперёд, то есть в ячейку стоящую рядом, но именно вперёд, чтоб не нарушалась последовательность. Можно ли это сделать с помощью Excel, если да то как?
Вот пример:



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

[EducatedFool]

Вот пример:
...
А получилось так:
...

Не увидел никакой разницы...
Где пример в виде файла Excel?

[doober]

сегодня день шуток.в одной из тем архив пустой,здесь игра

играем в игру Найди 1 отличие.Ответ отличий нет

файлик приложите с пояснениями.

[Smile2007]

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

Не увидел никакой разницы...
Где пример в виде файла Excel?

Уже исправила, сейчас картинку прикриплю.

[EducatedFool]

Проверяйте:



Вот весь код:

Sub test()
    Dim ra As Range: Set ra = Range([A1], Range("A" & Rows.Count).End(IIf(Len(Range("A" & Rows.Count)), xlDown, xlUp))).Resize(, 2)
    arr = ra.Value: Mask$ = ActiveSheet.OLEObjects("textbox1").Object.Value
    For i = LBound(arr) To UBound(arr)
        txt$ = arr(i, 1)
        If txt = Mask Then arr(i, 2) = Mask: arr(i, 1) = ""
        Debug.Print i, txt, Mask, txt = Mask
    Next i
    ra.Value = arr
End Sub

[Smile2007]

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

Проверяйте:



Вот весь код:

Sub test()
    Dim ra As Range: Set ra = Range([A1], Range("A" & Rows.Count).End(IIf(Len(Range("A" & Rows.Count)), xlDown, xlUp))).Resize(, 2)
    arr = ra.Value: Mask$ = ActiveSheet.OLEObjects("textbox1").Object.Value
    For i = LBound(arr) To UBound(arr)
        txt$ = arr(i, 1)
        If txt = Mask Then arr(i, 2) = Mask: arr(i, 1) = ""
        Debug.Print i, txt, Mask, txt = Mask
    Next i
    ra.Value = arr
End Sub

Спасибо большое за помощь и за труд. Было бы ещё хорошо, если бы вы мне ещё сказали куда вставить этот код. Наверное вставить как функцию, но какую функцию выбрать? А может я не права, может это связано с VBA, правда я даже не знаю что это такое. Помогите, в каком направлении идти?

[EducatedFool]

Помогите, в каком направлении идти?

На картинке не пробовали щелкнуть?
А потом нажать зелёную кнопочку в скачанном файле?

Скачайте пример файла - там уже всё вставлено куда надо.

[Smile2007]

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

На картинке не пробовали щелкнуть?
А потом нажать зелёную кнопочку в скачанном файле?

Скачайте пример файла - там уже всё вставлено куда надо.

Не догадалась нажать на картинку, спасибо большое.

[Smile2007]

EducatedFool, проверила, всё отлично работает, спасибо огромное!!!!!