Как вывести неопределенно-повторяющееся текстовое значение? - Страница 2

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

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

Мир MS Excel » Работа и общение » Мозговой штурм » Как вывести неопределенно-повторяющееся текстовое значение? (Формулы/Formulas)

Как вывести неопределенно-повторяющееся текстовое значение?

ZORRO2005

Дата: Понедельник, 04.05.2015, 20:09 | Сообщение № 21

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

Ранг: Обитатель

Сообщений: 382

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

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

Excel2010

buchlotnik, задача так поставлена, что не понятно, что в итоге нужно.
Я понял, что в D1 нужно выводить команду, самую часто встречающуюся в диапазоне С2:D11.
Пусть все ячейки в диапазоне заполнены.
Если таких команд >1, то оставляем одну.

Ответить

Кузьмич

Дата: Вторник, 05.05.2015, 00:52 | Сообщение № 22

Группа: Пользователи

Ранг: Участник

Сообщений: 68

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

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

Excel 2013

Цитата buchlotnik, 04.05.2015 в 13:01, в сообщении № 9

вроде получилось

buchlotnik, Вы Великий ГУРУ!!! Я 2 недели голову ломал над этим. ДА, Ваша формула работает (сообщение № 9). Благодарю от души друже hands

Всем выражаю огромную благодарность, кто принимал участие в решении данной задачи. МОЛОДЦЫ!!!

Ну, теперь вся утка наша...

Сообщение отредактировал Кузьмич - Вторник, 05.05.2015, 01:41

Ответить

buchlotnik

Дата: Вторник, 05.05.2015, 03:52 | Сообщение № 23

Группа: Заблокированные

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

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

Кузьмич, спасибо за добрые слова. И всё же зайдите в эту тему в след. понедельник - думаю будет выложено много гораздо более коротких и элегантных решений.

Ответить

Кузьмич

Дата: Вторник, 05.05.2015, 08:29 | Сообщение № 24

Группа: Пользователи

Ранг: Участник

Сообщений: 68

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

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

Excel 2013

Цитата buchlotnik, 05.05.2015 в 03:52, в сообщении № 23

И всё же зайдите в эту тему в след. понедельник

Обязательно Михаил зайду yes

Ну, теперь вся утка наша...

Ответить

Кузьмич

Дата: Вторник, 05.05.2015, 15:37 | Сообщение № 25

Группа: Пользователи

Ранг: Участник

Сообщений: 68

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

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

Excel 2013

Цитата ZORRO2005, 04.05.2015 в 20:09, в сообщении № 21

Если таких команд >1, то оставляем одну.

Не совсем так. Из предложенного диапазона C2:D11 существует команда "фаворит", которая повторяется в каждой строчке в разных столбцах (слева столбец означает, что команда играет дома, а правый столбец - в гостях), её мы и выводим в D1. Сама с собой конечно же команда играть не может, исключено. Так же в заданном диапазоне C2:D11 можно видеть команды которые не повторяются, но бывают исключения. Одна из таких команд может повториться и второй раз (реванш). Значит >1 не подходит, будет выдавать 2 значения. Михаил предусмотрел такую ситуацию и в D1 выводится фаворит даже при реваншах, проверено!
Понимаю, что виноват и не полностью разъяснил суть всей задачи. Про исключения я запамятовал, так что не серчайте сильно на меня. Я тут новенький, привыкаю ещё =).

Ну, теперь вся утка наша...

Сообщение отредактировал Кузьмич - Вторник, 05.05.2015, 15:39

Ответить

green

Дата: Четверг, 07.05.2015, 15:18 | Сообщение № 26

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

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

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

Excel 2013

Можно в vba написать формулу , так будет поменьше символов!:)))
файл прилагается!

[vba]

Код

Function poisk(range1 As range)
Application.Volatile
p1 = 0

For i = 1 To range1.Rows.Count
For j = 1 To range1.Columns.Count
If WorksheetFunction.CountIf(range1, range1.Cells(i, j)) > p1 Then
poisk = range1.Cells(i, j)
p1 = WorksheetFunction.CountIf(range1, range1.Cells(i, j))
End If

Next
Next

End Function

[/vba]
[moder]Оформите код тегами (кнопка #)[/moder]

К сообщению приложен файл: 12345.xlsm (23.3 Kb)

Сообщение отредактировал Serge_007 - Четверг, 07.05.2015, 15:40

Ответить

Rioran

Дата: Четверг, 07.05.2015, 16:21 | Сообщение № 27

Группа: Авторы

Ранг: Ветеран

Сообщений: 903

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

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

Excel 2013

green, здравствуйте.

Вне конкурса. Можно и за один цикл:

[vba]

Код

Function Rio$(RngA As Range)
     Dim RngX As Range, i#, j#
     For Each RngX In RngA
         j = WorksheetFunction.CountIf(RngA, RngX)
         If j > i Then
             i = j: Rio = RngX.Value
         End If
     Next RngX
End Function

[/vba]

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279

Ответить

Кузьмич

Дата: Воскресенье, 10.05.2015, 08:45 | Сообщение № 28

Группа: Пользователи

Ранг: Участник

Сообщений: 68

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

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

Excel 2013

Цитата green, 07.05.2015 в 15:18, в сообщении № 26

Можно в vba написать формулу

green, я такого вида формул ещё не встречал, но она тоже отлично работает. БЛАГОДАРЮ!!!

Ну, теперь вся утка наша...

Ответить

krosav4ig

Дата: Воскресенье, 10.05.2015, 17:52 | Сообщение № 29

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

Ранг: Старожил

Сообщений: 2347

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

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

Excel 2007,2010,2013

Если искомого значения в одном из столбцов может не быть, то меня массивная формула ~~175~~ обнаружился косяк, 182 без "="
Формула не протягиваемая
Плюс макрофункция 118 символов

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Воскресенье, 10.05.2015, 20:02

Ответить

ZORRO2005

Дата: Понедельник, 11.05.2015, 20:51 | Сообщение № 30

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

Ранг: Обитатель

Сообщений: 382

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

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

Excel2010

Понедельник.

Код

=ДВССЫЛ(АДРЕС(ПСТР(МИН(ЕСЛИ(СЧЁТЕСЛИ(C2:D11;C2:D11)=МАКС(СЧЁТЕСЛИ(C2:D11;C2:D11));--(СТОЛБЕЦ(C2:D11)&СТРОКА(C2:D11))));2;99);--ЛЕВБ(МИН(ЕСЛИ(СЧЁТЕСЛИ(C2:D11;C2:D11)=МАКС(СЧЁТЕСЛИ(C2:D11;C2:D11));--(СТОЛБЕЦ(C2:D11)&СТРОКА(C2:D11)))))))

Ответить

krosav4ig

Дата: Вторник, 12.05.2015, 11:16 | Сообщение № 31

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

Ранг: Старожил

Сообщений: 2347

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

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

Excel 2007,2010,2013

Вторник

Код

=ИНДЕКС(C:D;МАКС((СЧЁТЕСЛИ(C2:D11;C2:D11)=МАКС(СЧЁТЕСЛИ(C2:D11;C2:D11)))*СТРОКА(C2:D11));МИН(2;1/ПРОСМОТР(2;1/МУМНОЖ(Ч(СЧЁТЕСЛИ(C2:D11;C2:D11)=МАКС(СЧЁТЕСЛИ(C2:D11;C2:D11)));{1:2}))))