Код |
---|
Sub Result_rpt() Dim A() 'A = Sheets("Лист2").Range("C16:C579").Value A = Sheets("Лист2").Range(Cells(16, 3), Cells(579, 3)).Value Sheets("результат").Range("B1").Resize(564, 1) = A End Sub |
но вот такой макрос работает
Код |
---|
Sub Result_rpt() Dim A() A = Sheets("Лист2").Range("C16:C579").Value 'A = Sheets("Лист2").Range(Cells(16, 3), Cells(579, 3)).Value Sheets("результат").Range("B1").Resize(564, 1) = A End Sub |
Код |
---|
Range("C16:C579") равно Range(Cells(16, 3), Cells(579, 3)) |