Добрый день!
Пожалуйста, подскажите, как сделать, чтобы этот макрос работал на всех листах книги, а не только на активном?
Sub T()
Dim lngI As Long
Dim lngJ As Long
lngI = Cells(Rows.Count, 18).End(xlUp).Row 'определяем строку последней заполненной ячейки в столбце R
lngJ = Cells(Rows.Count, 6).End(xlUp).Row 'определяем строку последней заполненной ячейки в столбце F
Range("R" & lngI).Copy Range("R" & lngI + 1 & ":R" & lngJ)
End Sub
Sub T()
Dim sh As Worksheet
Dim lngI As Long
Dim lngJ As Long
For Each sh In Worksheets
lngI = sh.Cells(sh.Rows.Count, 18).End(xlUp).Row 'определяем строку последней заполненной ячейки в столбце R
lngJ = sh.Cells(sh.Rows.Count, 6).End(xlUp).Row 'определяем строку последней заполненной ячейки в столбце F
sh.Range("R" & lngI).Copy sh.Range("R" & lngI + 1 & ":R" & lngJ)
Next sh
End Sub
Спасибо!