Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Поиск дубликатов внутри ячейки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Поиск дубликатов внутри ячейки (Формулы)
Поиск дубликатов внутри ячейки
Дмитрий Дата: Вторник, 26.11.2013, 13:37 | Сообщение № 1
Группа: Гости
Привет. Подскажите как найти совпадения внутри ячейки? Ячейка следующего содержания "1; 2; 3; 4; 5; 6; 7; 8; 9; 10; 1; 11; 12; 13 ....". в данном примере значение "1" указано 2 раза. Как в соседней ячейке вывести "1"
 
Ответить
СообщениеПривет. Подскажите как найти совпадения внутри ячейки? Ячейка следующего содержания "1; 2; 3; 4; 5; 6; 7; 8; 9; 10; 1; 11; 12; 13 ....". в данном примере значение "1" указано 2 раза. Как в соседней ячейке вывести "1"
Автор - Дмитрий
Дата добавления - 26.11.2013 в 13:37
jakim Дата: Вторник, 26.11.2013, 13:47 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1216
Репутация: 316 ±
Замечаний: 0% ±

Excel 2010
Текст по солбцам и формула

Код
=COUNTIF($A$1:$N$1;A1)


Сообщение отредактировал jakim - Вторник, 26.11.2013, 13:48
 
Ответить
Сообщение
Текст по солбцам и формула

Код
=COUNTIF($A$1:$N$1;A1)
Автор - jakim
Дата добавления - 26.11.2013 в 13:47
The_Prist Дата: Вторник, 26.11.2013, 13:56 | Сообщение № 3
Группа: Друзья
Ранг: Участник
Сообщений: 85
Репутация: 22 ±
Замечаний: 0% ±

2010
Дмитрий, читать до конца(или с конца):
Как подсчитать количество повторений
Там я описывал как раз подобный случай.

Errare humanum est, stultum est in errore perseverare

Сообщение отредактировал The_Prist - Вторник, 26.11.2013, 13:56
 
Ответить
СообщениеДмитрий, читать до конца(или с конца):
Как подсчитать количество повторений
Там я описывал как раз подобный случай.
Автор - The_Prist
Дата добавления - 26.11.2013 в 13:56
Дмитрий Дата: Вторник, 26.11.2013, 13:57 | Сообщение № 4
Группа: Гости
с текстом по столбцам вариант знаю! НО количество значений различное и превышает 100, что не очень удобно (верней совсем не удобно). Также требуется найти все совпадения в ячейке и это не всегда первое значение!
 
Ответить
Сообщениес текстом по столбцам вариант знаю! НО количество значений различное и превышает 100, что не очень удобно (верней совсем не удобно). Также требуется найти все совпадения в ячейке и это не всегда первое значение!
Автор - Дмитрий
Дата добавления - 26.11.2013 в 13:57
Дмитрий Дата: Вторник, 26.11.2013, 14:07 | Сообщение № 5
Группа: Гости
=(ДЛСТР($D$1)-ДЛСТР(ПОДСТАВИТЬ($D$1;D3;"")))/ДЛСТР(D3)

Спасибо, дальше под свой случай доделаю.
 
Ответить
Сообщение=(ДЛСТР($D$1)-ДЛСТР(ПОДСТАВИТЬ($D$1;D3;"")))/ДЛСТР(D3)

Спасибо, дальше под свой случай доделаю.
Автор - Дмитрий
Дата добавления - 26.11.2013 в 14:07
Дмитрий Дата: Вторник, 26.11.2013, 14:15 | Сообщение № 6
Группа: Гости
Только как быть, когда не знаешь повторяющееся значение. Это наверно НЕВОЗМОЖНО!?
 
Ответить
СообщениеТолько как быть, когда не знаешь повторяющееся значение. Это наверно НЕВОЗМОЖНО!?
Автор - Дмитрий
Дата добавления - 26.11.2013 в 14:15
Hugo Дата: Вторник, 26.11.2013, 14:32 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3731
Репутация: 795 ±
Замечаний: 0% ±

365
Возможно сделать функцией пользователя.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеВозможно сделать функцией пользователя.
Автор - Hugo
Дата добавления - 26.11.2013 в 14:32
The_Prist Дата: Вторник, 26.11.2013, 14:33 | Сообщение № 8
Группа: Друзья
Ранг: Участник
Сообщений: 85
Репутация: 22 ±
Замечаний: 0% ±

2010
Если чуть модернизировать входную строку(дообавить спереди пробел), то можно как во вложении.
Применены формулы массива.
К сообщению приложен файл: CntRepeat.xls (24.5 Kb)

Errare humanum est, stultum est in errore perseverare

Сообщение отредактировал The_Prist - Вторник, 26.11.2013, 14:33
 
Ответить
СообщениеЕсли чуть модернизировать входную строку(дообавить спереди пробел), то можно как во вложении.
Применены формулы массива.
Автор - The_Prist
Дата добавления - 26.11.2013 в 14:33
KuklP Дата: Вторник, 26.11.2013, 14:38 | Сообщение № 9
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Ребят, а не проще Дмитрию зарегистрироваться и выложить пример со всеми возможными вариантами, чем вам гадать и выкладывать очередные примеры? %) Не, дело ваше, если скучно... Развлекайтесь :D

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеРебят, а не проще Дмитрию зарегистрироваться и выложить пример со всеми возможными вариантами, чем вам гадать и выкладывать очередные примеры? %) Не, дело ваше, если скучно... Развлекайтесь :D
Автор - KuklP
Дата добавления - 26.11.2013 в 14:38
jakim Дата: Вторник, 26.11.2013, 14:43 | Сообщение № 10
Группа: Друзья
Ранг: Старожил
Сообщений: 1216
Репутация: 316 ±
Замечаний: 0% ±

Excel 2010
Я всё-таки предлагаю мой предыдущий вариант, а для упрощения поиска УФ.
К сообщению приложен файл: 2230556.xlsx (9.6 Kb)
 
Ответить
Сообщение
Я всё-таки предлагаю мой предыдущий вариант, а для упрощения поиска УФ.
Автор - jakim
Дата добавления - 26.11.2013 в 14:43
Hugo Дата: Вторник, 26.11.2013, 14:43 | Сообщение № 11
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3731
Репутация: 795 ±
Замечаний: 0% ±

365
UDF:
[vba]
Код
Function povtor(s As String, sep As String)
      Dim arr, el
      arr = Split(s, sep)
      s = ""
        
      With CreateObject("Scripting.Dictionary"): .comparemode = 1
          For Each el In arr
              .Item(Trim(el)) = .Item(Trim(el)) + 1
          Next
          For Each el In .keys
              If .Item(el) > 1 Then
                  s = s & vbLf & el & " - " & .Item(el)
              End If
          Next
      End With

      povtor = Mid(s, 2)

End Function
[/vba]
Код в модуль, в ячейку пишем =povtor(A1,";")
Формат ячейки - перенос по строкам.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеUDF:
[vba]
Код
Function povtor(s As String, sep As String)
      Dim arr, el
      arr = Split(s, sep)
      s = ""
        
      With CreateObject("Scripting.Dictionary"): .comparemode = 1
          For Each el In arr
              .Item(Trim(el)) = .Item(Trim(el)) + 1
          Next
          For Each el In .keys
              If .Item(el) > 1 Then
                  s = s & vbLf & el & " - " & .Item(el)
              End If
          Next
      End With

      povtor = Mid(s, 2)

End Function
[/vba]
Код в модуль, в ячейку пишем =povtor(A1,";")
Формат ячейки - перенос по строкам.
Автор - Hugo
Дата добавления - 26.11.2013 в 14:43
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Поиск дубликатов внутри ячейки (Формулы)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!