Sorduğunuzu 2 şekilde yapabilirsiniz:
1-RowSource ile arada sütun gizleyerek:
Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 6 '--> 6 sütun alınır
ListBox1.ColumnWidths = "60;0;0;0;0;60" ' --> ilk ve son sütunların genişlikleri 60, diğerleri 0 olunca sadece 60'lar görünecek.
ListBox1.RowSource = "gruplar!A2:F10" '--> A2:F10 arasını alıyoruz.
2-AddItem yöntemi:
Private Sub UserForm_Initialize()
ListBox1.Clear
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "60;60"
For i = 2 To 12 ' A2'den A12'ye kadar olanları alacağımız döngü başlangıcı
ListBox1.AddItem 'Listbox'a satır satır veri ekleyeceğiz...
ListBox1.List(i - 2, 0) = Range("A" & i) ' Listbox'un ilk sütununa A sütunundan
ListBox1.List(i - 2, 1) = Range("F" & i) ' Listbox'un ikinci sütununa F sütunundan veri alıyoruz
Next i
End Sub