Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.09.2009, 07:39   #1
n22sn
Новичок
Джуниор
 
Регистрация: 29.09.2009
Сообщений: 5
По умолчанию форматирование столбца

День добрый! Помогите пожалуйста с VBA
Такой вопрос: есть столбец, в нем текст, но начинается с пробела (например " привет") нужно удалить пробел вначале,
а затем удалить все строки, содержащие одинаковые значения, оставив только одну...(ну допустим встречается 3 раза слово "привет", надо оставить только один раз)

Заранее спасибо!
n22sn вне форума Ответить с цитированием
Старый 30.09.2009, 07:56   #2
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Если в 2 прохода, то можно так (для столбца "A"):
Код:
Sub Main()
    Dim i As Long: Application.ScreenUpdating = False
    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row: Cells(i, 1) = Trim(Cells(i, 1)): Next
    For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
        If Application.CountIf([A:A], Cells(i, 1)) > 1 Then Rows(i).Delete
    Next
End Sub
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Условное форматирование eda Microsoft Office Excel 2 27.07.2009 13:03
Форматирование строк Propan Microsoft Office Excel 15 04.05.2009 06:47
Форматирование диска С Ruska882009 Windows 5 20.03.2009 12:45
форматирование beygul Помощь студентам 13 07.02.2009 21:18
В прямоугольной матрице переставить столбцы так, чтобы сумма элементов столбца росла от первого столбца Aleo13 Помощь студентам 5 15.10.2008 18:34