EXCEL столбец с номерами телефонов

[akk-elena]

Как в Excel сделать следующее: есть столбик с номерами (с чередующимся повторением)в соседний столбец делаем запись чей это номер, и нужно чтобы если есть ещё такой же номер в этом столбце в соседнем столбике точно также поставилась такая же запись.Объяснила как смогла...

[Serge 007]

Сообщение от akk-elena

Как в Excel сделать следующее: есть столбик с номерами (с чередующимся повторением)в соседний столбец делаем запись чей это номер, и нужно чтобы если есть ещё такой же номер в этом столбце в соседнем столбике точно также поставилась такая же запись.Объяснила как смогла...

Пример где?

[akk-elena]

Сообщение от Serge 007

Пример где?

примерно так

[Serge 007]

Сообщение от akk-elena

примерно так

Видимо только макросом. Формулами можно (простой ВПР), но для этого таблица соответствия нужна.

[akk-elena]

Сообщение от Serge 007

Видимо только макросом. Формулами можно (простой ВПР), но для этого таблица соответствия нужна.

Спасибо за ответ!

[Hugo121]

Макросом примерно так. Хотя есть побочный эффект - занесите что-либо в пустую ячейку второго столбца ниже данных... Если сильно мешает - можно код усложнить доп. проверкой.

[EducatedFool]

Проверяйте: http://excelvba.ru/XL_Files/Sample__...0__0-56-19.zip

Вот весь код:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column <> 2 Then Exit Sub
    pr = Target.Previous: If Trim(pr) = "" Then Exit Sub
    Application.EnableEvents = False: On Error Resume Next
    Dim cell As Range, ra As Range: Application.ScreenUpdating = False
    Set ra = Range([A1], Range("A" & Rows.Count).End(xlUp))
    For Each cell In ra.Cells
        If cell = pr Then If cell.Next <> Target Then cell.Next = Target
    Next cell
    Application.EnableEvents = True
End Sub