Question

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

Answer 1

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

Answer 2

Если не сложно , то можешь ещё описать , как действует (работает программа )(По действиям )

Answer 3

Нет, не могу, это займет слишком много времени, VBA нужно изучать месяцами упорного труда. Потому что любая моя фраза из "объяснения" немедленно вызовет новый поток вопросов.

Answer 4

Заходите в среду программирования VBA, становитесь курсором на каждом непонятном элементе и вызывайте подсказку....