Excel удалить пустые строки в конце

Требовалось после обработки получить следующий:

Саша

Маша

Думал написать макрос, однако все ж полез в инет поискать решение, чтобы не изобретать велосипед )

Итак вот советы, которые я нашел:

1. Если у вас Excel 2003, то заходим в меню:

Данные > Фильтр > Расширенный фильтр

Перед этим предварительно сделав первую строку пустой.

Выбираем исходный диапазон ячеек, ставим галочку «Только уникальные записи», жмем ок, далее наслаждаемся результатом ))

2. Для тех, у кого стоит 2007 версия Икселя, проделать такие же действия будет попроще, в нем на этот случай есть удобная кнопка,

просто идем на вкладку «Данные», далее сами разберетесь по рисунку.

3. И наконец, для любителей кодить, привожу макрос на VBA:

Sub DelDups_OneList()

Dim iListCount As Integer

Dim iCtr As Integer

' Для ускорения работы макроса обновление экрана отключается.

Application.ScreenUpdating = False

' Получение числа записей для поиска.

iListCount = Sheets("Sheet1").Range("A1:A100").Rows.C ount

Sheets("Sheet1").Range("A1").Select

' Цикл по всем записям до последней.

Do Until ActiveCell = ""

' Цикл по записям.

For iCtr = 1 To iListCount

Источник: aprishnik.livejournal.com

Категория: Выбор и покупка

Похожие статьи: