Есть две строки в разных ячейках Искомая строка -код -работа -20 -81 -9053 -а822 -1324 -1381 -vdo -цифровой -выдавать -а423 -!на -004
Нужна формула которая объединяла бы обе строки без дубликатов, следующий алгоритм брала первое слово искомой строки "-работы" и искала бы его вхождение в ячейки с формулой, если найдено брала бы следующее слово в искомой строке, если слово не найдено то добавляла в ячейку с формулой, и так делала бы пока не закончатся слова во искомой строке.
В результате я бы получил возможность из двух трех и более строк делать одну без дубликатов, просто сравнивая искомую строку с со строкой с формулой.
Заранее благодарю
Есть две строки в разных ячейках Искомая строка -код -работа -20 -81 -9053 -а822 -1324 -1381 -vdo -цифровой -выдавать -а423 -!на -004
Нужна формула которая объединяла бы обе строки без дубликатов, следующий алгоритм брала первое слово искомой строки "-работы" и искала бы его вхождение в ячейки с формулой, если найдено брала бы следующее слово в искомой строке, если слово не найдено то добавляла в ячейку с формулой, и так делала бы пока не закончатся слова во искомой строке.
В результате я бы получил возможность из двух трех и более строк делать одну без дубликатов, просто сравнивая искомую строку с со строкой с формулой.
Все благодарю нашел решение поиск объединяю две строки в одну далее в объедененной строке ищу дубликаты с помощью. следующего макроса: [vba]
Код
Function RemoveDupes2(txt As String, Optional delim As String = " ") As String Dim x 'Updateby20140924 With CreateObject("Scripting.Dictionary") .CompareMode = vbTextCompare For Each x In Split(txt, delim) If Trim(x) <> "" And Not .exists(Trim(x)) Then .Add Trim(x), Nothing Next If .Count > 0 Then RemoveDupes2 = Join(.keys, delim) End With End Function
[/vba]
Все благодарю нашел решение поиск объединяю две строки в одну далее в объедененной строке ищу дубликаты с помощью. следующего макроса: [vba]
Код
Function RemoveDupes2(txt As String, Optional delim As String = " ") As String Dim x 'Updateby20140924 With CreateObject("Scripting.Dictionary") .CompareMode = vbTextCompare For Each x In Split(txt, delim) If Trim(x) <> "" And Not .exists(Trim(x)) Then .Add Trim(x), Nothing Next If .Count > 0 Then RemoveDupes2 = Join(.keys, delim) End With End Function
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
