Заполнение ListBox

[ruavia3]

Нужно заполнить на форме 2 элемента ListBox (a) данными из таблицы на активном листе.

ListBox1 = первая строка
List Box2 = все остальное

Как это можно сделать?

[EducatedFool]

Что значит "заполнить"?
Там не один столбец, а таблица...

В ListBox1 пишем только одно значение из первой строки? Или все?
В ListBox2 пишем все значения из диапазона B2:L13? Или только из определённого столбца?

Попробуйте так:

Private Sub UserForm_Initialize()
    For Each cell In [b1:l1]: Me.ListBox1.AddItem cell: Next
    For Each cell In [b2:l13]: Me.ListBox2.AddItem cell: Next
End Sub

Или так:

Private Sub UserForm_Initialize()
    For Each cell In [b1:l1]: Me.ListBox1.AddItem cell: Next
    For Each ro In [b2:l13].Rows
        txt = "":    For Each cell In ro.Cells: txt = txt & " " & cell: Next
        Me.ListBox2.AddItem txt
    Next
End Sub

И вообще, надо формулировать задание подробнее, чтобы нам потом не приходилось по 10 раз переписывать код.
А то на написание кода тратится 2 минуты, а на выяснение подробностей - неделя...

[ruavia3]

Посмотрите, я нарисовал.

[EducatedFool]

Я тоже рисовать умею:



А вот и код:



PS: Это самый странный код из того, что я когда-либо писал.
Для чего его можно применить - представления не имею...

При желании можно сделать даже так:

[ruavia3]

Нужно, чтобы столбцу с римской цифрой - соответствовал - столбик значений из арабских цифр. (как на моем рисунке)
Расстояние между римскими цифрами должно быть таким же как и между значениями под ними стоящими.
p.s. Больше подходит второй рисунок(а можно на нем scrollbarы убрать) и если возможно, то сделать без сетки excel и запретить выделение.