Sub Delete_Duplicates()
Dim col As New Collection
Dim i As Integer
On Error Resume Next
For Each cell In Selection
Set col = Nothing
sResult = ""
'делим текст в ячейке по пробелам
arWords = Split(WorksheetFunction.Trim(cell.Value), " ")
'проходим в цикле по всем получившимся словам
For i = LBound(arWords) To UBound(arWords)
Err.Clear 'сбрасываем ошибки
col.Add arWords(i), arWords(i) 'пробуем добавить слово в коллекцию
'если ошибки не возникает, то это не повтор - добавляем слово к результату
If Err.Number = 0 Then sResult = sResult & " " & arWords(i)
Next i
cell.Value = Trim(sResult) 'выводим результаты без повторов
Next cell
End Sub
BasiC2k, Нужно для создания журнала изменений. Затык заключается в том, что ищет и выводит на лист "LOG" изменения по всему листу, а необходимо только в заданном диапозоне.
Трудности возникают в отсутствие знаний по vba. Я пробовал изменить sh.Range на нужный мне диапозон, но ничего не получилось, так же ищет(выводит) изменения по всему листу
Akina, Не принципиально, что при сортировке, что при фильтрации строки не закрепляются. Мне интересно возможно ли впринципе закрепить дополнительные строки при сортировке и фильтрации.
Спасибо большое всё работает, за исключением маленькой особености. Нумерация удалилась, всё здорово, но остаётся ещё одна точка в начале, то есть было 123.name, стало .name. Если не составит труда пожалуйста допишите код. В любом случаяе Вы сократили для меня уйму времени. Спасибо большое!!!
Прочитал все коментарии. Знатоки подскажите дилетанту, какая команда(строка) отвечает за выбор пути ( то есть когда вызываешь макрос, он предлагает тебе выбрать папку откуда брать файлы)?
Всем спасибо!!! Вопрос закрыт