Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Удалить дубли и вывести число их повторений в файле
 
ocet p, хотелось бы как-то автоматизировать данный процесс, т.к. чувствую надо будет это делать раз в неделю (((
Удалить дубли и вывести число их повторений в файле
 
День добрый. Есть файл поручений, где за каждым сотрудником записывается, какое он выполнил. Мне необходимо автоматом посчитать, количество выполненных поручений. В арсенале имею только один столбец в таблице.

Пример:
Захарян А.С.
Данилова В.М.
Конькова А.С.
Данилова В.М.
Данилова В.М.
Соломатин Д.В.
Захарян А.С.
Данилова В.М.
Конькова А.С.

На выходе нужно получить, что-то примерно следующего вида:
Данилова В.М. 4
Захарян А.С. 2
Конькова А.С. 2
Соломатин Д.В. 1

Помогите пожалуйста реализовать. Благодарю.
Чистка ячейки от лишних символов и слов
 
ZVI, благодарю за помощь. Пока нареканий в работе не выявлено. С поставленной задачей справляется на ура )))
Чистка ячейки от лишних символов и слов
 
ПЫтался найти решение самостоятельно, не нашел. Прошу помощи.
Чистка ячейки от лишних символов и слов
 
Проблема почти решена. У меня функция получилась следующего вида:
Код
Function Clear$(t$)
 With CreateObject("VBScript.RegExp"): .Global = True:: .IgnoreCase = True:  .Pattern = "-[a-zA-Zа-яёА-ЯЁ0-9]+"
 If .test(t) Then Clear = Trim(.Replace(t, ""))
 End With
End Function
Но вылезла другая проблема. Если отсутствуют слова для фильтрования, то ячейка пуская ((( Как это можно победить ? Ведь не каждую ячейку мне надо фильтровать. Возможны и ячейки с чистыми значениями, которые надо сохранить так есть ...

Для примера возьмите 2 строчки, где первую надо фильтрануть, а втораю имеет чистое значение:
+из полей! "доносится"  !печаль -налей -золото
из полей доносится печаль

В итоге мы увидим в соседнем столбце лишь отфильтрованные данные. Помогите пожалуйста с этой задачей разобраться.

Благодарю.
Изменено: Alez - 20 Сен 2018 02:43:23
Чистка ячейки от лишних символов и слов
 
Подниму тему, остался последний рывок к решению поставленной задачи ...
Чистка ячейки от лишних символов и слов
 
vikttur, работает, благодарю. Осталось понять, как дописать функцию Кузи

Код
Function bbb$(t$)
 With CreateObject("VBScript.RegExp"): .Global = True:: .IgnoreCase = True:  .Pattern = "-[а-яё]+"
 If .test(t) Then bbb = Trim(.Replace(t, ""))
 End With
End Function

чтобы чистились не только русские-англ. буквы в разных регистрах, но и цифры

P.S. Потом пожалуйста объясните, куда этот код и как вставлять ? Пытаюсь наковырять его в файле примера, но не могу найти (((
Изменено: Alez - 17 Сен 2018 23:53:15
Чистка ячейки от лишних символов и слов
 
vikttur, благодарю. С экселем плотно никогда не сталкивался, поэтому синтаксис еще не успел освоить. Сейчас проверю ...
Чистка ячейки от лишних символов и слов
 
кузя1972, спасибо за примеры. Второй вариант именно то, что надо, вот только с другими вариациями он дружит через раз ((( В исходном варианте я описал возможные нюансы, которые могут быть. Но к примеру, если из ячейки надо вычистить только слова со знаком минуса, то не справляется (

Проверял на варианте:
Скрытый текст

Исходного варианта у меня увы нет, готовлюсь и делаю заготовки к новой работе.
Изменено: Alez - 17 Сен 2018 23:18:15
Чистка ячейки от лишних символов и слов
 
Доброго времени суток товарищи. Помогите пожалуйста написать формулу для зачистки ячейки от лишнего.

Имеем: +из полей! "доносится"  !печаль -налей -золото
Получаем: из полей доносится печаль

Если с кавычками, плюсами, восклиц. знаками и пробелами топорно разобрался (каждая ячейка чистит от чего-то одного)
Скрытый текст

то слова со знаком минуса никак не могу победить на автомате ((( Хотелось, чтобы конечный результат получался в одной ячейки, а не цепочке ...

Благодарю.
Страницы: 1
Наверх