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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 16.12.2010, 17:08   #1
Tyr
Новичок
Джуниор
 
Регистрация: 16.12.2010
Сообщений: 2
По умолчанию Сравнение значений в 2х столбцах и удаление лишних значений..

В таблице есть 2 столбца с числами - в первом уникальные, во втором они могут повторяться несколько раз... необходим макрос который удалит со второго столбца все ячейки со значениями которых нет в первом столбце... в табличке больше 10тыс строк...
Извеняюсь за возможно неточную формулировку - в файлике пример...
Вложения
Тип файла: rar прим.rar (2.2 Кб, 18 просмотров)
Tyr вне форума Ответить с цитированием
Старый 16.12.2010, 17:16   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Всего 5 строк кода:

Код:
Sub test()
    Application.ScreenUpdating = False: On Error Resume Next
    Dim ra As Range: Set ra = Range([b2], Range("b" & Rows.Count).End(IIf(Len(Range("b" & Rows.Count)), xlDown, xlUp)))
    ra.Offset(, 6).FormulaR1C1 = "=MATCH(RC2,C1,0)"
    Intersect(ra.Offset(, 6).SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow, [b:h]).Delete
    ra.Offset(, 6).ClearContents
End Sub
Проверяйте - пример в файле: http://excelvba.ru/XL_Files/Sample__...__19-19-54.zip

Последний раз редактировалось EducatedFool; 16.12.2010 в 17:19.
EducatedFool вне форума Ответить с цитированием
Старый 16.12.2010, 18:19   #3
Tyr
Новичок
Джуниор
 
Регистрация: 16.12.2010
Сообщений: 2
По умолчанию

Огромное спасибо...
Tyr вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Выделение одинаковых значений в 2 столбцах jaguardark Microsoft Office Excel 22 06.09.2017 14:37
Сравнение значений в 2 массивах Verano naranjo Microsoft Office Excel 10 01.12.2010 11:49
сравнение столбцов в Excel и подстановка значений Oleg77 Помощь студентам 2 06.02.2010 03:09
Сравнение значений с сортировкой Al_B Microsoft Office Excel 2 27.03.2009 20:41