End With

ЗАМЕЧАНИЯ:

1. Если Вы формируете список из массива (как в приведенном примере), то количество его элементов задает первый индекс массива. Соответственно в первую колонку списка будут считываться данные из 1-й «колонки» массива (во вторую – из второй и т.д.). Поэтому нам пришлось транспонировать массив Преподаватели в массив ПреподавателиТранс. Можно обойтись одним массивом и тогда этот же фрагмент кода запишется так:

Dim Преподаватели() As String

Dim НомерСтроки As Integer

Dim КолСотрудников As Integer

....

НомерСтроки = 3

КолСотрудников = 0

'1. Определяем количество записей в конечном _

массиве:

While Trim (Cells(НомерСтроки,2).Value) <> ""

If Trim(Cells(НомерСтроки, 1).Value) = _

"АСУ" Then КолСотрудников = _

КолСотрудников + 1

НомерСтроки = НомерСтроки + 1

Wend

'2. Выделяем память для динамического массива и _

считываем в него данные:

ReDim Преподаватели(КолСотрудников, 2)

For i = 3 To НомерСтроки - 1

If Trim(Cells(НомерСтроки, 1).Value) = "АСУ" Then

КолСотрудников = КолСотрудников + 1

Преподаватели(КолСотрудников,1) = _

Cells(НомерСтроки,2).Value

Преподаватели(КолСотрудников,2) = _

Cells(НомерСтроки,3). Value

End If

Next i

'3. Заполняем список, состоящий из двух колонок:

With lstCотрудник

.СolumnCount = 2

.List = Преподаватели