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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 11.02.2010, 13:15   #11
Maxx
Форумчанин
 
Аватар для Maxx
 
Регистрация: 29.10.2008
Сообщений: 294
По умолчанию

Цитата:
Сообщение от SAS888 Посмотреть сообщение
Можно чуть проще. И методу Find добавить чувствительность к регистру
Код:
Sub Main()
    Dim i As Long: Application.ScreenUpdating = False
    For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
        If Not [B:B].Find(Cells(i, 1), MatchCase:=True) Is Nothing Then Cells(i, 1).Delete Shift:=xlUp
    Next
End Sub
Не знал как сделать вот так If Not [B:B].Find(Cells(i, 1), MatchCase:=True) Is Nothing
Возьму на заметку . Вроде бы многому уже научился, но оптимизация кода пока страдает

Последний раз редактировалось Maxx; 11.02.2010 в 13:25.
Maxx вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите найти дубликаты в столбце komar73 Microsoft Office Excel 8 30.06.2009 20:21
Опять про PNG, только на этот раз по теме iImageList-а Altera Компоненты Delphi 6 30.06.2009 12:44
Еще раз про адресацию tae1980 Microsoft Office Excel 2 25.02.2009 07:56
ещё раз про Random (вдогонку к закрытой теме 'НЕ ПОЙМУ КАК ВЫВИСТИ ЧИСЛО') Serge_Bliznykov Общие вопросы Delphi 1 20.04.2008 12:37
У меня вопрос про базы данных,а точнее про таблицы!!! Alexij Общие вопросы Delphi 1 13.04.2008 23:24