|
Модераторы: mihanik |
|
Coder |
|
|||
Опытный Профиль Группа: Участник Сообщений: 733 Регистрация: 13.12.2004 Репутация: нет Всего: 11 |
В программирование в Excel "два по пять", поэтому прошу помощи в написании кода:
Есть такая таблица: Фамилия Имя Отчество № Приказа Дата приказа Кашина Евгения Алексеевна 16367/11 04.07.2008 Клешнина Маргарита Андреевна 11365/11 04.01.2007 Ларких Михаил Павлович 16450/11 14.07.2008 Клешнина Маргарита Андреевна 16365/11 04.07.2008 Как удалить повторяющиеся строки, но чтобы одна из них осталась. Сравнивать нужно по 3-м столбцам - Фамилия, Имя, Отчество. Из приведенного примера нужно удалить строку №4 (или 1), т.к. совпадает Клешнина Маргарита Андреевна. |
|||
|
||||
Staruha |
|
|||
Эксперт Профиль Группа: Участник Клуба Сообщений: 1292 Регистрация: 1.2.2004 Где: Казань Репутация: 13 Всего: 27 |
Сначала сортировка потом переменной String присваиваешь значение первой строки и идешь по строкам, начиная со второй.Если String=Cells(i,Column),удаляешь строку если нет присваиваешь новое значение Stringy
-------------------- Возмездие настигнет |
|||
|
||||
Coder |
|
|||
Опытный Профиль Группа: Участник Сообщений: 733 Регистрация: 13.12.2004 Репутация: нет Всего: 11 |
Staruha,
|
|||
|
||||
Staruha |
|
|||
Эксперт Профиль Группа: Участник Клуба Сообщений: 1292 Регистрация: 1.2.2004 Где: Казань Репутация: 13 Всего: 27 |
Остается тебе определить диапазон и подставить вместо 100 и отсортировать все это уже обсуждалось
-------------------- Возмездие настигнет |
|||
|
||||
Akina |
|
||||
Советчик Профиль Группа: Модератор Сообщений: 20570 Регистрация: 8.4.2004 Где: Зеленоград Репутация: 25 Всего: 453 |
А если в других строках есть различия?
Хорошо бы добавить разделитель, заведомо отсутствующий в данных, скажем
-------------------- О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума. |
||||
|
|||||
Staruha |
|
|||
Эксперт Профиль Группа: Участник Клуба Сообщений: 1292 Регистрация: 1.2.2004 Где: Казань Репутация: 13 Всего: 27 |
Как говорится По миру по нитке. Я так думаю код еще преукрасится.
-------------------- Возмездие настигнет |
|||
|
||||
mihanik |
|
|||
-=Белый Медведь=- Профиль Группа: Комодератор Сообщений: 4054 Регистрация: 24.4.2006 Где: г. Тверь Репутация: 9 Всего: 109 |
Помечу решённым.
|
|||
|
||||
chirs |
|
|||
Новичок Профиль Группа: Участник Сообщений: 2 Регистрация: 15.11.2017 Репутация: нет Всего: нет |
Всё делается гораздо проще. Вообще без программирования.
1. Добавляешь после последнего столбца в новом столбце формулу =СЦЕПИТЬ(A2;B2;C2) и протягиваем формулу на всю длину таблицы. Получится столбец, содержащий ФИО. 2. Затем выделяешь всю таблицу, включая столбец с формулой и в закладке "Данные" жмешь кнопку "Удалить дубликаты", в появившемся окне снимаешь все галочки и ставишь только галочку со столбцом содержащим объединенные ФИО. Жмешь Ок. Дубли удалятся. 3. Удаляешь больше не нужную последнюю колонку с формулой с ФИО. Простые способы поиска и удаления дублей: http://www.codernotes.ru/articles/vba/pois...ov-v-excel.html |
|||
|
||||
Akina |
|
|||
Советчик Профиль Группа: Модератор Сообщений: 20570 Регистрация: 8.4.2004 Где: Зеленоград Репутация: 25 Всего: 453 |
chirs, вот ты правда думаешь, что автор все 9 лет сидит и ждёт ответа?
-------------------- О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума. |
|||
|
||||
Staruha |
|
|||
Эксперт Профиль Группа: Участник Клуба Сообщений: 1292 Регистрация: 1.2.2004 Где: Казань Репутация: 13 Всего: 27 |
Он набирается опыта. Решил порешать задачки. Со временем увидишь ,что с кодом надежнее. Пользователи частенько все ломают,толком мышкой не умеют работать. Все улетает. Пароль не всегда удобен. Для некоторых просто ставишь кнопку и говоришь .что б только сюда нажимали. А ты говоришь столбец выделить Это сообщение отредактировал(а) Staruha - 15.11.2017, 10:56 -------------------- Возмездие настигнет |
|||
|
||||
Правила форума "Программирование, связанное с MS Office" | |
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще!
|
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |