Нужно скопировать данные из листа "1 курс" на лист "Лист1".
Нужно скопировать данные, если на листе "1 курс" в строке 46 в ячейке есть слово "Лекционные". В ячейке кроме слова "Лекционные" могут быть и другие слова.
Нужно скопировать данные из столбцов 4 - 100, из строки 46, из ячейки, в которой содержится слово "Лекционные".
Вставлять данные нужно в столбцы A, B, начиная со строки 1:
столбец A: значение из ячейки, в которой находится слово "Лекционные";
столбец B: 09:00:00 - 10:35:00
Данный макрос ищет слово "Лекционные" с учётом регистра. Если слово "Лекционные" будет написано с маленькой буквы, то макрос слово "Лекционные" не найдёт.
Sub Макрос()
Dim r As Long, j As Long
r = 1
For j = 4 To 100
If Sheets("1 курс").Cells(46, j) Like "*Лекционные*" Then
r = r + 1
Sheets("Лист1").Cells(r, 1) = Sheets("1 курс").Cells(46, j)
Sheets("Лист1").Cells(r, 1).Offset(0, 1) = "09:00:00 - 10:35:00"
End If
Next j
End Sub
спасибо