| Код |
|---|
Sub Sub()
With ThisWorkbook
.Sheets("Лист1").Range("A1:V33").Copy
.Sheets("Лист3").Range("A1").Select
.Sheets("Лист3").Paste
.Sheets("Лист3").Range("B6:M6").Value = .Sheets("Лист1").Range("B19:M19").Value
End With
End sub
|
Изменено: - 12.09.2016 11:52:38