Dim MyArray(10)
Sub fil()
Dim ws As Worksheet
Dim i As Single
ListBox1.ColumnCount = 11
For i = 0 To 10
MyArray(i) = i
Next i
For Each ws In ActiveWorkbook.Worksheets 'на каждом листе
For Each ww In ws.UsedRange.Rows 'по всем строкам
MyArray(0) = ws.Cells(ww.Row, 1).Value 'Фамилия
MyArray(1) = ws.Cells(ww.Row, 2).Value 'Имя
MyArray(2) = ws.Cells(ww.Row, 3).Value 'Отечество
MyArray(3) = ws.Cells(ww.Row, 4).Value 'Город
MyArray(4) = ws.Cells(ww.Row, 5).Value 'Адрес
MyArray(5) = ws.Cells(ww.Row, 6).Value 'Дом
MyArray(6) = ws.Cells(ww.Row, 7).Value 'Квартира
MyArray(7) = ws.Cells(ww.Row, 8).Value 'Книга 1
MyArray(8) = ws.Cells(ww.Row, 9).Value 'Книга 2
MyArray(9) = ws.Cells(ww.Row, 10).Value 'Страница
MyArray(10) = ws.Cells(ww.Row, 11).Value 'Реестровый номер
Next ww
Next ws
ListBox1.Column = MyArray
End Sub
Private Sub UserForm_Initialize()
'ListBox1.Clear
fil
End Sub |
