Поиск нескольких значений

[zenner]

Добрый день!У меня есть таблица с номерами телефона в excel следующего типа:

Безымянный.jpg

Как мне можно с помощью поиска найти зразу несколько разных номеров и потомом добавить к этим номерам одно одинаковое значение!Например найти 12345,2323232,23223 и потом прикрепить к ним (29.09) чтобы получилось 12345(29.09) 2323232(29.09) и так далее.С помощью команды Заменить я могу искать и заменять только один номер а мне надо найти и заменить сразу несколько! Спасибо!!!

[SAS888]

Создать форму с запросами "Какие номера искать", "Что добавлять" и т.п.
Устроит? Прикрепите файл с данными. Нет никакого желания создавать его вручную.

[zenner]

Хотелось бы чтобы была форма следующего вида:
Безымянный.jpg

В первое поле я ввожу номер(но лучше сразу несколько номеров через & ) , во второе поле ввожу число которое нужно будет прописать рядом с номерами и нажимаю кнопку ПОИСК и рядом с нужными номерами прописывается число! СПАСИБО!

[SAS888]

1. Если номеров, для которых требуется подстановка несколько, то как их вводить? В отдельный столбец? В ListBox? Или еще как-то?
2. Подставлять нужно одно и то же значение?
3. Где файл с данными?

[zenner]

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

1. Если номеров, для которых требуется подстановка несколько, то как их вводить? В отдельный столбец? В ListBox? Или еще как-то?
2. Подставлять нужно одно и то же значение?
3. Где файл с данными?

1) Я думал вводить все номера в первой форме в виде 334343&434343&555555 и так далее но если так не получается то любым другим способом.
2) Подставляется одно и то же значение для всех номеров.
3) Номера Я буду копировать в файл с формой тоесть я открываю файл с формой, ниже вставляю таблицу с номерами и потом произвожу поиск и добавление числа к определенным номерам.

[SAS888]

Введите N строк и M столбцов с данными и прикрепите файл. Иначе, разговор не состоится.

[zenner]

Оригинал файла :
example.rar

Количество колонок с номерами максимум 5 а количество строк может менятся.

Я наверное не могу правильно описать то что мне нужно.Нам приходят данные файлы,Я должен среди них найти определенные номера и рядом с ними написать определенную дату.Обычным поиском в excel можно искать только по одному номеру а я хотел искать сразу много номеров и добавлять к ним одну одинаковую дату.

[SAS888]

Посмотрите вложение. Запустите макрос "Main". Дальше, по-моему, все будет понятно.
Так устроит?

[Teslenko_EA]

Здравствуйте zenner.
Код SAS888 прекрасно выполняет задачу, можно только рекомендовать корректировку:

...
Dim s$
s = TextBox2.Text
...
            Set x = Cells.Find(what:=nm, LookAt:=xlWhole)
            If Not x Is Nothing Then
                Cells(x.Row, x.Column + 1) = s ' "...прописать рядом с номерами..."
                Exit Do
            End If
...

Евгений.

[SAS888]

Уважаемый Teslenko_EA. В моем примере цикл Do...Loop был введен для того, чтобы найти все указанные ячейки и к их значению добавить нужный текст. Т.к. в процессе работы макрос изменяет само значение найденной ячейки, то цикл будет выполняться до тех пор, пока находятся искомые ячейки. пусть даже с одинаковыми значениями. Если же дубликатов быть не может, то и внутренний цикл не нужен.
Если же автору темы требуется не изменять значение найденной ячейки, а добавлять текст в ячейку рядом, то внутренний цикл (поиск всех повторяющихся значений ) нужно переделать, используя, например метод FindNext и добавить условие выхода из цикла.
Так же, можно ввести контроль TextBox2 на "пустоту", т.к. при пустом значении макрос вообще можно не выполнять.
В общем, примерно так:

Private Sub CommandButton1_Click()
    Dim x As Range, nm: Application.ScreenUpdating = False
    If TextBox2.Text = "" Then Exit Sub
    For Each nm In Split(TextBox1.Text, " ")
        Set x = Cells.Find(what:=nm, LookAt:=xlWhole)
        If Not x Is Nothing Then x.Next = TextBox2.Text
    Next
End Sub

Пример во вложении.