Чуть-чуть почитал, подумал) написал свой первый макрос)
Всем спасибо))
Всем спасибо))
| Код |
|---|
Dim i As Integer
For i = 5 To 6 Step 1
Rows(i & ":" & i).Select
Selection.Copy
Rows("2:2") .Select
ActiveSheet.Paste
Sheets("Лист1").PrintOut Copies:=1, Collate:=True
Next i
End Sub |
Изменено: - 04.11.2014 10:26:52