Skip to content

Instantly share code, notes, and snippets.

Created September 12, 2017 15:23
Show Gist options
  • Save anonymous/568bdf5b11b5f38ce4c2e3af7a7e1002 to your computer and use it in GitHub Desktop.
Save anonymous/568bdf5b11b5f38ce4c2e3af7a7e1002 to your computer and use it in GitHub Desktop.
Сравнение текста в excel

Сравнение текста в excel



Как в Excel сравнить данные
Сравнение текста по части предложения
Поиск

Довольно часто возникает проблема сравнения двух строк ячеек по части текста. Если точнее - по совпадению слов. Чем больше слов в двух строках совпадает - тем больше они считаются похожими. Я не имею ввиду сейчас случаи вроде двух строк: Для подобного сравнения можно написать решения различные, но скорость их выполнения как правило оставляет желать лучшего, да и точность такого сравнения тоже не на высоте, если не использовать всевозможные справочники На деле подобная задача встречается достаточно часто и предположу, что данная статья может быть полезна очень многим. Итак, как ни жаль, но подобную задачу невозможно решить без применения Visual Basic for Applications VBA. Решение, которое я предложу - функция пользователя. Поэтому прежде чем его использовать настоятельно рекомендую прочесть следующие статьи:. Данный код необходимо вставить в стандартный модуль книги выше я привел ссылки на статьи, чтобы более точно понять куда и как вставить. Функция ищет указанное значение s1 в массиве значений mass и выводит максимально подходящее значение. Если же полного совпадения среди значений массива mass не будет найдено, то будет выведено значение с максимальным процентом совпадения. В таких случаях всегда можно указать последним аргументом lShowAllInfo -1 или 3, чтобы посмотреть номер строки в указанном диапазоне mass и сверить уже глазами подходит это значение или нет. B;"-";;2 - с разделителем короткое тире - и выводом только значения Аргументы: По умолчанию 0 последнее максимально совпадающее. Если указать 1 - будет выбрано первое подходящее в котором совпадают все слова lShowAllInfo - указатель на результат. Проблема в том, что у меня он работает только по диапазону не более значений все вычисления: Почему так происходит, ведь мне необходимо делать выборку в более ячеек? Стандартные формулы работают с диапазоном более Моя система: MS EXEL , Windows 7, Visual Basic version VBA: В данных, где была выборка столбец А , при изначальном копировании значений в эти ячейки, некоторые слова с плюсом вначале например: Как раз первое такое значение было на строке Вадим, спасибо за отзыв. Для Вас нецелесообразно, а для кого-то может быть более удобно, чем без этого: Сделано специально, чтобы при выводе в качестве результата всей информации показывалось именно число процентов: В ином случае процент совпадения может вводить в заблуждение цифрами вроде 0, Полагаю, если кому-то это неудобно например, если используется метод вывода 1 и формат ячеек Процентный - всегда в конце можно разделить на , удалить это из кода вовсе или добавить только для вывода процентов отдельно деление на обратно: Главная Мои программы Ошибка - "Component COMDLG Сравнивает две строки по совпадению отдельных слов. Value If Not IsArray asStr2 Then ReDim asStr2 1 To 1, 1 To 1: Выводит процент, саму строку и номер строки. Процент совпадения строк, Найденное значение,. Dim as1 , as2 , l1 As Long , l2 As Long , lr As Long. Dim s As String , s2 As String , lp , lTmpCom As Long , lResCom As Long. Dim lResR As Long , sResS As String , v. If Not IsArray asStr2 Then ReDim asStr2 1 To 1 , 1 To 1: Поделитесь своим мнением Комментарии, не имеющие отношения к комментируемой статье, могут быть удалены без уведомления и объяснения причин. Если есть вопрос по личной проблеме - добро пожаловать на Форум. Нажмите, чтобы отменить ответ. Так же с этой статьей читают:. Главная Хитрости Тренинги Азы Excel. Спасибо за сообщение Ваше сообщение было получено и отправлено администратору. Основные понятия 22 Сводные таблицы и анализ данных 7 Графики и диаграммы 5 Работа с VB проектом 11 Power BI и Power Query Условное форматирование 5 Списки и диапазоны 5 Макросы VBA процедуры 61 Разное


Признаки этноса таблица
Сколько гласных звуков в русском
Где находятся алтайские горы
Зачем нужен профсоюз
Такси санкт петербург оплата картой
Сколько времени в таиланде
Красный светодиод характеристики
Редуктор цилиндрический чертеж компас
Баку новости сегодня 2017
Стиральная машина малютка ремонтсвоими руками
Оплачивается больничный лист во время отпуска очередного
Наружная отделка балкона или лоджии своими руками
Схема антенны дельта н 1321
Фильм племя описание
10 самых страшных событий
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment