Найти и обозвать совпадения

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Найти и обозвать совпадения (Формулы/Formulas)

Snow

Дата: Среда, 03.05.2017, 16:56 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 110

Репутация: 0 ±

Замечаний: 20% ±

Excel 2007,2010

Всем здрасьте! Помогите бестолковке :'(

Есть два листа
На одном список . На втором-критерии для отбора
Как сделать так, чтобы на первом листе помечались строки (желательно словом), которые содержат данные со второго листа?

К сообщению приложен файл: 8428061.xls (29.0 Kb)

Ответить

_Boroda_

Дата: Среда, 03.05.2017, 17:12 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16674

Репутация: 6479 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Вот этого

Цитата Snow, 03.05.2017 в 16:56, в сообщении № 1 ()

на первом листе помечались строки (желательно словом)

не совсем понял
Может, так?

Код

=СЧЁТ(ПОИСК(список!A$1:A$2;A3))

И там формат ячейки еще

К сообщению приложен файл: 8428061_1.xls (31.5 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

sboy

Дата: Среда, 03.05.2017, 17:45 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

Добрый день.
Если надо точно как в примере, вариант макросом (жмем на кнопку)
[vba]

Код

Sub sovpadenie()
s = ""
spisok = Sheets(2).Range("A1:B2").Value
For x = 3 To Cells(Rows.Count, 1).End(xlUp).Row
    s = ""
    stroka = Split(Cells(x, 1), ", ")
        For q = 0 To UBound(stroka)
            For Z = 1 To UBound(spisok)
                If stroka(q) = spisok(Z, 1) Then
                s = s & spisok(Z, 2) & " "
                Exit For
                End If
            Next Z
        Next q
    Cells(x, 2) = s
Next x
End Sub

[/vba]

К сообщению приложен файл: 4831939.xls (41.5 Kb)

Яндекс: 410016850021169

Ответить

Snow

Дата: Четверг, 04.05.2017, 09:30 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 110

Репутация: 0 ±

Замечаний: 20% ±

Excel 2007,2010

Цитата _Boroda_, 03.05.2017 в 17:12, в сообщении № 2 ()

Может, так?

ДА, большое спасибо!
а откуда слово "слово" берется. я его хочу заменить на другое и не найду, где

Ответить

_Boroda_

Дата: Четверг, 04.05.2017, 09:31 | Сообщение № 5

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16674

Репутация: 6479 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

А поинтересовались - про что это я написал

Цитата _Boroda_, 03.05.2017 в 17:12, в сообщении № 2 ()

формат ячейки еще

В формат ячеек залезьте

Формат aaa;bbb;ccc;ddd переводится как aaa - числа больше нуля; bbb - числа меньше нуля; ccc - ноль; ddd - текст
Подробнее можно посмотреть здесь
http://www.excelworld.ru/publ/hacks/formatting/format_user/63-1-0-141