Solenaja
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору David_Kats Код: Sub searching() r = 1 'Номер строки, с которой начнется запись вычленных строк в другом листе. For i = Start To Finish If Left(Cells(i + 1), 3) = "Упр" Then 'Находим строку, начинающуюся с "Упр" If Left(Cells(i + 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 | Код: Sub searching() r = 1 'Номер строки, с которой начнется запись вычленных строк в другом листе. For i = Start To Finish If Left(Cells(i, 1), 3) = "Упр" Then 'Находим строку, начинающуюся с "Упр" If Left(Cells(i + 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 | я так думаю не работает из-за того что в начале i=0 всёравно не работает ни одна ячейка не копируется
---------- Могу помочь, но только своими знаниями и ... |
| Всего записей: 4246 | Зарегистр. 02-09-2001 | Отправлено: 11:46 30-09-2008 | Исправлено: Solenaja, 12:00 30-09-2008 |
|