Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Программирование в VBA. Создать одномерный массив состоящий из 10 целых чисел . Сколько одинаковых чисел содержит массив . Т.е. в столбце А есть 10 чисел , а в столбце В напротив каждого числа (стобца А ) выводится число , которое показывает , сколько раз встречается данное число в столбце А .

Ответ оставил Гость

Sub aaa()
    Dim r As Range
    Set r = Range("A1:A10")
    i = 1
    For Each k In r
       Cells(i, 2) = Application.WorksheetFunction.CountIf(r, k)
       i = i + 1
    Next k
End Sub

Для случая размещения чисел массива в ячейках с А1 по А10