Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Создать массив массивов
 
Мяв!
Нужно создать массив, каждый элемент которого является массивом определенной (не факт, что одинаковой) размерности.
Решение, в принципе, нашел, но можно ли обойтись без танцев с бубнами в виде считывания данных с листа?
Код
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
 
RAN,
http://www.cyberforum.ru/vba/thread624517.html#post3272937
http://www.cyberforum.ru/vba/thread1669649.html#post8797921
 
Спасибо за ссылки, но это не то.
Мне нужен массив произвольной размерности, состоящий из массивов произвольной размерности.
Вся проблема - как сделать i элемент массива массивом.
Фокус с dim a(i) не работает.
 
Код
Sub www()
    Dim a(1 To 5), i&
        For i = 1 To 5
        ReDim b(1 To i, i + 4 To i + 6)
            a(i) = b
        Next
End Sub
 
Игорь, спасибо, оно самое.
Крутился где-то рядом, но заставить работать не получилось.
Страницы: 1
Читают тему (гостей: 1)
Наверх