Поиск известного текста и его копирование - VB
Формулировка задачи:
Подскажите пожалуйста! В Excel файле нужно найти и скопировать инф-ю (числа в текстовом виде), начинающуюся с известного текста ("(92)")(без него самого) до последней заполненной ячейки далее.
1). найденные значения нужно скопировать в другую книгу Excel
2). взаимное расположение заполненных ячеек: несколько столбцов и строк
3). пустые ячейки между заполненными есть
4). Известный текст содержится только в одной ячейке
5). Все обрабатываемые данные расположены на одном листе книги
Спасибо!
1). найденные значения нужно скопировать в другую книгу Excel
2). взаимное расположение заполненных ячеек: несколько столбцов и строк
3). пустые ячейки между заполненными есть
4). Известный текст содержится только в одной ячейке
5). Все обрабатываемые данные расположены на одном листе книги
Спасибо!
Решение задачи: «Поиск известного текста и его копирование»
textual
Листинг программы
<font color="blue">Private</font> <font color="blue">Sub</font> CommandButton1_Click()
<font color="blue">Dim</font> rng <font color="blue">As</font> Range
<font color="blue">Set</font> rng = Cells.Find(What:=<font color="teal">"(92)"</font>, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
True)
rng.CurrentRegion.Copy
Workbooks.Add
ActiveSheet.Paste
<font color="blue">End</font> <font color="blue">Sub</font>