|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
24.12.2007, 15:11 | #1 |
Регистрация: 24.12.2007
Сообщений: 4
|
Помогите отсортировать список
Я новичек в общении с Exel и столкнулся с такой проблемой:
Есть список компаний представленный в виде : Название компании Альпин пром ТОО E-mail alpщ_p@mail.ru Руководитель Ю.В.Евсюков Название компании Аль-Рами ТОО Руководитель Е.Н.Редутко Так вот мне нужно удалить все компании поле "E-mail" которых пусто. Перечитал все доступные справочники но так ничего толкового и не нашел. Буду очень благодарен за помощь. |
24.12.2007, 17:03 | #2 |
Форумчанин
Регистрация: 21.08.2007
Сообщений: 292
|
Выложите сюда пример файла. Так будет понятнее нам
|
24.12.2007, 17:51 | #3 |
Пользователь
Регистрация: 22.11.2007
Сообщений: 79
|
ret83, а насколько часто нужно решать подобную задачу? Если 1 раз, то, может быть, проще воспользоваться автофильтром?
Например, так: 1. Будем рассматривать тройки строк, типа: A2: Название A3: E-mail A4: Руководитель A5: Название - и т.д. 2. Поместим в ячейку B3 формулу: =ЕСЛИ(A2="E-mail";1;0) 3. В ячейки B2 и B4 формулу: =B3 Таким образом, если E-mail не заполнен (т.е. есть только запись "E-mail" без адреса), то эту строчку, вышестоящую и нижестоящую отмечаем единичками. 4. Эти три ячейки выделяем и копируем в нижестоящие ячейки столбца B. 5. Потом ставим автофильтр в 1-й строке, выбираем в столбце B единицы и, выделив мышью все эти строки, удаляем их (промежуточные строки, содержащие нули, не удалятся). Потом выбираем в фильтре (Все) - и готово. |
24.12.2007, 17:55 | #4 |
Регистрация: 24.12.2007
Сообщений: 4
|
пожалуйста файл:
|
25.12.2007, 06:47 | #5 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Проще всего это сделать средствами VBA.
В прикрепленном файле войти: Сервис/Макрос/Макросы, выбрать макрос "Udalenie", нажать Выполнить.
Чем шире угол зрения, тем он тупее.
|
25.12.2007, 15:10 | #6 |
Регистрация: 24.12.2007
Сообщений: 4
|
Спасибо огромное!
Все работает, просто супер! Но есть один вопрос если я хочу применить данный макрос к списку более внушительных размеров например строк в 30000 нужно что-либо менять? Когда я применяю макрос в файле с большим списком, то он удаляет все записи. |
26.12.2007, 05:21 | #7 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Работа макроса построена следующим образом:
Просматриваются строки с начала до последней записи в столбце "A" (в обратном порядке). Контролируется столбец "B". Если встречается пустая ячейка, например "B26", то удаляются строки с 25 по 27, т. е. одна - выше и одна - ниже пустой ячейки в "B". Если весь лист построен именно по такой структуре как Ваш вложенный файл, то макрос будет корректно работать вплоть до строки 65535. Если что-то не получается, или необходимо изменить (дополнить) условия сортировки - прикрепите Ваш "большой" файл и объясните что нужно. И еще вопрос. Может лучше скрывать ненужные записи, или все же удалять?
Чем шире угол зрения, тем он тупее.
|
26.12.2007, 11:16 | #8 |
Пользователь
Регистрация: 22.11.2007
Сообщений: 79
|
ret83, ну, ты все-таки поостерегся бы целиком базу е-мейлов выкладывать, тебя и за первый файл начальство по голове не погладило бы... ";-)
|
29.12.2007, 13:41 | #9 |
Регистрация: 24.12.2007
Сообщений: 4
|
Спасибо всем, ту базу уже отсортировал.
А именно начальство мне этот сайт и подсказало, если вы имели ввиду, что этими адресами могут воспользоваться спамеры, ну это плата за скорость моей работы. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Данные-проверка-список (список на другом листе) | Inbox | Microsoft Office Excel | 7 | 26.12.2008 01:43 |
Отсортировать по алфавиту | Rio309 | Помощь студентам | 2 | 09.03.2008 22:52 |
Отсортировать по алфавиту | asale | Microsoft Office Excel | 5 | 19.11.2007 22:01 |
Как отсортировать НД по Lookup-полю? | Schumacher | БД в Delphi | 4 | 21.06.2007 14:07 |
Как отсортировать | Uhryap | Microsoft Office Word | 2 | 24.02.2007 16:58 |