Программирование в VBA. Создать одномерный массив состоящий из 10 целых чисел . Сколько...

Question

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

Comments

Т.е. если число 20 встретилось в массиве дважды, напротив каждого числа 20 будет стоять 2?

---

Можно напротив каждого , можно напротив только одного

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

Comments

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

---

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

---

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