Добрый день. Имеется массив a(3,n). a(1,n) - повторяющиеся, как минимум 2 раза , фамилии сотрудников, кол-во повторений и порядок каждый день разный. a(2,n) и a(3,n) данные связанные с фамилией сотрудника. К примеру:
a(1,1) = Иванов В.А. a(2,1) = Яблоки a(3,1) = 2 кг.
a(1,2) = Петров С.П. a(2,2) = Груши a(3,2) = 1 кг.
a(1,3) = Иванов В.А. a(2,3) = Сливы a(3,3) = 1,5 кг.
a(1,4) = Петров С.П. a(2,4) = Помидоры a(3,4) = 0,5 кг.
a(1,5) = Петров С.П. a(2,5) = Огурцы a(3,5) = 3,5 кг итд...

Требуется каждый день делать выборку, с помощью VBA, например:
Иванов В.А.
Яблоки, 2 кг.
Сливы, 1,5 кг.

Петров С.П.
Груши, 1 кг.
Помидоры, 0,5 кг.
Огурцы, 3,5 кг.

Заранее благодарен.

Игорь Горбонос,

Теоретически понятно, практическую часть хотелось бы по подробнее...
Заранее спасибо.

Нашел. Может кому-то поможет.

Sub Masiv()

Dim a(2, 20) As Variant
Dim b(2, 20) As Variant

a(1, 1) = "Petrov": a(2, 1) = "Yabloki"
a(1, 2) = "Petrov": a(2, 2) = "Cvetu"
a(1, 3) = "Ivanov": a(2, 3) = "Kaktusu"
a(1, 4) = "Petrov": a(2, 4) = "Pomidoru"
a(1, 5) = "Ivanov": a(2, 5) = "Kapusta"
a(1, 6) = "Petrov": a(2, 6) = "Slivu"
a(1, 7) = "Sidorov": a(2, 7) = "Abrikosu"
a(1, 8) = "Sidorov": a(2, 8) = "Duni"

c = -1
For i = 1 To 8
k = -1
For j = 0 To c
If a(1, i) = b(1, j) Then
k = j
Exit For
End If
Next
If k = -1 Then
c = c + 1
b(1, c) = a(1, i): b(2, c) = a(2, i)
Else
b(2, k) = b(2, k) & a(2, i)
End If
Next

For i = 0 To c
MsgBox b(1, i) & " - " & b(2, i)
Next
End Sub