Прошу вас помогите!Необходимо написать программку,но только обязательно в Visual Basic!!!!!На вход

можно и для Excel!Только напишите,упрашиваю

хорошо,жду)

В присоединенном файле трудящаяся программа. Не пренебрегайте установить уровень безопасности макросов Excel в "средний". сам макрос - на листе рабочей книжки, вот его текст:
Option Explicit

Sub CommandButton1_Click()
    Dim n As Integer, i As Integer, j As Integer
    Dim Sr As Single
    Dim Phone As String
    'Динамические массивы - неизвестно кол-во подразделений
    Dim nPhone() As String, nDep() As Integer
    i = 2
    Do While Len(Cells(i, 1).Value) lt;gt; 0
        i = i + 1
    Loop
    n = i - 2 'Количество служащих определено по первой пустой ячейке в 1й колонке
    ReDim nPhone(1 To n), nDep(1 To n) 'Определили массивы нужной размерности
    For i = 1 To n
        nPhone(i) = Cells(i + 1, 2).Value
        nDep(i) = 0
    Next i
    BubbleSort nPhone
    Phone = "***-**-**" ' Можно брать что угодно, не считая реального номера
    j = 0
    For i = 1 To n
        If nPhone(i) = Phone Then
            nDep(j) = nDep(j) + 1
        Else
            Phone = nPhone(i)
            j = j + 1
            nDep(j) = 1
        End If
    Next i
    Sr = 0
    For i = 1 To j
        Sr = Sr + nDep(i)
    Next i
    Sr = Sr / j
    MsgBox "Среднее количество служащих в отделе равно" amp; Str(Sr), vbInformation
End Sub

Public Sub BubbleSort(Arr As Variant)
    ' Пузырьковая сортировка одномерного массива
    Dim lSorted As Boolean, nI As Long, nJ As Long, nAll As Long, vTemp As Variant
    nAll = UBound(Arr)
    nI = LBound(Arr) - 1
    Do While (nI lt; nAll) And Not lSorted
        lSorted = True
        nI = nI + 1
        For nJ = 1 To nAll - nI
            If Arr(nJ) gt; Arr(nJ + 1) Then
                vTemp = Arr(nJ): Arr(nJ) = Arr(nJ + 1): Arr(nJ + 1) = vTemp: lSorted = False
            End If
        Next nJ
    Loop
End Sub

Чтобы получить ответ надобно число сотрудников (вводится в самом начале) поделить на число отделов. Число отделов определяется разным числом последних цифр телефона: от 00 до 99. Номер отдела связываем с индексом массива А, в который будем ставить 1 если отдел с таким номером есть. Так как в задаче не ставится вопрос о проверке входных данных и сохранении их значения, то сочиняем таковой код:
Sub z()
Dim a(99) As Integer
n = InputBox("Введите N")
For i = 1 To n
 s = InputBox("Введите данные сотрудника")
 k = Val(Right(s, 2))
 a(k) = 1
Next i
k = 0  'считаем число отделов
For i = 1 To 100
    If a(i) gt; 0 Then k = k + 1
Next i
MsgBox (n / k)
End Sub