Отбор строк по содержанию текста в ячейке

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Отбор строк по содержанию текста в ячейке (Макросы Sub)

igrtsk

Дата: Понедельник, 02.12.2013, 11:25 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 314

Репутация: 50 ±

Замечаний: 0% ±

Excel 2016

Доброго времени суток!
Научите начинающего: каким образом произвести отбор строк в новую таблицу по определенному тексту.
Например, в новой таблице должны остаться только те строки, у которых в столбце "примечание" содержится слово "раму"

К сообщению приложен файл: 3666721.xls (35.5 Kb)

Инструктор по применению лосей в кавалерийских частях РККА

Ответить

Саня

Дата: Понедельник, 02.12.2013, 11:57 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

[vba]

Код

Option Explicit

Sub RunThis()
     FiltTo "раму"
     FiltTo "мыла"
     FiltTo "мама"
End Sub

Sub FiltTo(sWhat As String)
     Dim lr As Long

     With Лист1
         lr = .Range("A1").End(xlDown).Row

         .Range("O1").AutoFilter
         With .Range("A1:O" & lr)
             .AutoFilter 15, "=*" & sWhat & "*"
             .Copy
         End With
         '======================================
         Sheets.Add After:=Sheets(Sheets.Count)
         ActiveSheet.Paste
         '======================================
         .Range("O1").AutoFilter
     End With
End Sub

[/vba]

Ответить

igrtsk

Дата: Понедельник, 02.12.2013, 12:20 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 314

Репутация: 50 ±

Замечаний: 0% ±

Excel 2016

Спасибо!
Великолепно!
Ни прибавить, ни убавить!!!

Инструктор по применению лосей в кавалерийских частях РККА

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Отбор строк по содержанию текста в ячейке (Макросы Sub)

Страница 1 из 1
1