Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Вывод адреса ячейки с дублем
 
#1
17.05.2018 21:56:50
Всем привет!

Подскажите пож-та как решить такую задачу:

Есть таблица из двух столбцов (A и B). В каждом из столбцов встречаются одинаковые значения (дубли). Все значения в колонках перемешаны. Задача  - в третьем столбце © вывести адрес ячейки из первой колонки и дубль этого значения из второй.

Т.е. например в ячейке A8 у нас стоит слово "Яблоко", а во второй колонке это же слово идет в ячейке B2.  Набор цифр - "45546" идет в ячейке A3, а во второй колонке он же идет в ячейке B12
Соответственно запись в третьей колонке такая - A8=B2 и A9=B12.  Если дублей нет просто адреса ячейки из первой колонки.

Пример таблицы в приложении.


Спасибо.
 
 
 
#2
17.05.2018 22:03:54
Здарова.
Попробуйте:
Код
=ЕСЛИОШИБКА(АДРЕС(СТРОКА(A2);СТОЛБЕЦ(A2);4) & "=" &АДРЕС(ПОИСКПОЗ(A2;$B$1:$B$12;0);2;4);АДРЕС(СТРОКА(A2);СТОЛБЕЦ(A2);4))
Кому решение нужно - тот пример и рисует.
 
 
 
#3
17.05.2018 22:09:23
См. вариант.
 
 
 
#4
17.05.2018 22:18:00
Цитата
В каждом из столбцов встречаются одинаковые значения (дубли)
Встречаются 1 раз?
 
 
 
#5
17.05.2018 22:24:46
Да
 
 
 
#6
17.05.2018 22:26:01
Вывод в столбец D
Код
Sub Poisk()
Dim i As Long
Dim iLastRow As Long
Dim FoundCell As Range
 iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
  For i = 2 To iLastRow
    Set FoundCell = Columns(2).Find(Cells(i, "A"), , xlValues, xlWhole)
    If Not FoundCell Is Nothing Then
      Cells(i, "D") = Cells(i, "A").Address(0, 0) & "=" & Cells(FoundCell.Row, "B").Address(0, 0)
    Else
      Cells(i, "D") = Cells(i, "A").Address(0, 0)
    End If
  Next
End Sub
 
 
 
#7
17.05.2018 22:31:50
Большое всем спасибо!
Все три варианта подошли
 
 
 
Страницы: 1
Наверх