








Dim arr() as variant
redim arr(1 to 10) as variant
arr(1)=array(1,2,3,4,5)
arr(2)=array(6,7,8,9,10)
'Количество вложений не ограничено...
msgbox arr(1)(3)
Сейчас этот форум просматривают: AhrefsBot, Majestic-12 [Bot], SemrushBot, Yandex-бот и гости: 11