Мяв!
Нужно создать массив, каждый элемент которого является массивом определенной (не факт, что одинаковой) размерности.
Решение, в принципе, нашел, но можно ли обойтись без танцев с бубнами в виде считывания данных с листа?
Нужно создать массив, каждый элемент которого является массивом определенной (не факт, что одинаковой) размерности.
Решение, в принципе, нашел, но можно ли обойтись без танцев с бубнами в виде считывания данных с листа?
Код |
---|
Sub www() Dim a(1 To 5) With Worksheets.Add(after:=Sheets(Sheets.Count)) For i = 1 To 5 a(i) = Range(Cells(1, 1), Cells(i + 4, i + 6)).Value Next .Delete End With End Sub |