Здравствуйте. Есть таблица на несколько тысяч строчек. Перечень техники. Есть список из 200 единиц которые нужно найти в этих 2 тысячах. нужно оставить или вывести или отфильтровать, чтобы остались только эти 200.
Здравствуйте. Есть таблица на несколько тысяч строчек. Перечень техники. Есть список из 200 единиц которые нужно найти в этих 2 тысячах. нужно оставить или вывести или отфильтровать, чтобы остались только эти 200.k_slava
Sub tt() Dim a(), b(), i&, ii&, t$ a = Workbooks("Книга1.xlsx").Sheets(1).[a1].CurrentRegion.Value b = ThisWorkbook.Sheets(1).[a1].CurrentRegion.Value For i = 1 To UBound(b) t = b(i, 1): b(i, 1) = "" For ii = 1 To UBound(a) If InStr(a(ii, 1), t) Then b(i, 1) = a(ii, 1): Exit For Next Next ThisWorkbook.Sheets(1).[b1].Resize(UBound(b), 1) = b End Sub
[/vba]
СЧЁТЕСЛИ() Или вот, сегодня писал: [vba]
Код
Sub tt() Dim a(), b(), i&, ii&, t$ a = Workbooks("Книга1.xlsx").Sheets(1).[a1].CurrentRegion.Value b = ThisWorkbook.Sheets(1).[a1].CurrentRegion.Value For i = 1 To UBound(b) t = b(i, 1): b(i, 1) = "" For ii = 1 To UBound(a) If InStr(a(ii, 1), t) Then b(i, 1) = a(ii, 1): Exit For Next Next ThisWorkbook.Sheets(1).[b1].Resize(UBound(b), 1) = b End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
