Solenaja
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите модифицировать, а то что-то не получается
Код: Sub searching2()
Dim FirstRow&, LastRow&
FirstRow = ActiveWorkbook.ActiveSheet.UsedRange.Row
LastRow = FirstRow + ActiveWorkbook.ActiveSheet.UsedRange.Rows.Count - 1
r = 1 'Номер строки, с которой начнется запись вычленных строк в другом листе.
'Finish = LastRow() 'Если опустить параметры, то функция посчитает непустые строки в первом столбце на активном листе, активной рабочей книги.
For i = FirstRow To LastRow
If Left(Cells(i, 1), 3) = "Упр" Then 'Находим строку, начинающуюся с "Упр"
If Left(Cells(i + 1, 1), 2) = "Не" Then 'Находим строку, начинающуюся с "Не"
'Добавляем вычлененные строки на лист "ИмяЛиста"
Sheets("Лист2").Cells(r, 1) = Cells(i, 1)
' с - № колонки в которую делается запись
Sheets("Лист2").Cells(r + 1, 1) = Cells(i + 1, 1)
r = r + 2
End If
End If
Next i
End Sub |
В данном случае находим в столбце ячеку начинающ с "Упр" и следующую за ней ниже начинающуюся с "Не" и записываем на Лист2
Нужно модифицировать: находим ячеку в столбце начинающуюся с "Упр" и следующую за ней начинающуюся с "Не", а также все следущие ниже ячейки пока не найдем ячейку начинающуюся с "Бух" и всё что идёт ниже её (т.е. "Бух" и ниже отсекается), до опять найденных ячеек с "Упр" и "Не" ..., и записываем на Лист2
заранее спасибо!!!
----------
Могу помочь, но только своими знаниями и ... |
|
Всего записей: 4246 | Зарегистр. 02-09-2001 | Отправлено: 12:21 07-11-2008 | Исправлено: Solenaja, 12:22 07-11-2008 |
|
