Здравствуйте. Есть таблица на несколько тысяч строчек. Перечень техники. Есть список из 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