・リストボックスで複数列表示
' suganoさんのサンプル
' http://homepage.mac.com/sunagoh/excel/fm980601.html を参照。
Private Sub UserForm_Initialize()
Dim list_koumoku() As Variant
Dim i
Dim gyou As Long 'リストに表示する最終行
Me.ListBox1.ColumnCount = 5
ListBox1.ColumnWidths = "1cm;2cm;2cm;2cm;2cm"
gyou = ActiveSheet.Range("a65535").End(xlUp).Rows '表示データの最終行
ReDim list_koumoku(gyou, 5) '表示データを格納する配列
For i = 0 To gyou
list_koumoku(i, 0) = Range("a" & i + 2).Value '二次元配列（行、列）
list_koumoku(i, 1) = Range("b" & i + 2).Value
list_koumoku(i, 2) = Range("c" & i + 2).Value
list_koumoku(i, 3) = Range("d" & i + 2).Value
list_koumoku(i, 4) = Range("e" & i + 2).Value
Next i
ListBox1.List() = list_koumoku '配列の値を一挙にリストにトス
End Sub