Помогите)Вывести фамилии сотрудников,которые хотя бы 1 раз получали минимальную зарплату по предприятию за год.Вот код:но там че-то не так получается.а исправить я не могу(Помогите,пожалуйста)
Private Sub CommandButton3_Click()
Dim i, j As Integer
Dim min(12) As Double
Dim b(12) As Integer
Rem Нахождение минимального элемента в таблице
For j = 1 To 12
min(j) = Зарплата(1, j)
For i = 2 To 10
If Зарплата(i, j) < min(j) Then min(j) = Зарплата(i, j)
Next i
Next j
Rem b(j)-номер первой свободной строки в каждом столбце
For j = 1 To 12
b(j) = 12
Next j
Rem Сравниваем зарплаты с минимальной в каждом месяце
For i = 1 To 10
For j = 1 To 12
If Зарплата(i, j) = min(j) Then b(j) = b(j) + 1: Cells(b(j), j + 1) = Фамилия(i)
Next j
Next i
End Sub

а вот и программа вся- http://depositfiles.com/files/8ypik9g7u
посмотрите