Программирование в VBA. Создать одномерный массив состоящий из 10 целых чисел . Сколько одинаковых чисел содержит массив . Т.е. в столбце А есть 10 чисел , а в столбце В напротив каждого числа (стобца А ) выводится число , которое показывает , сколько раз встречается данное число в столбце А .
Ответы
Ответ дал:
0
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
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
Ответ дал:
0
Если не сложно , то можешь ещё описать , как действует (работает программа )(По действиям )
Ответ дал:
0
Нет, не могу, это займет слишком много времени, VBA нужно изучать месяцами упорного труда. Потому что любая моя фраза из "объяснения" немедленно вызовет новый поток вопросов.
Ответ дал:
0
Заходите в среду программирования VBA, становитесь курсором на каждом непонятном элементе и вызывайте подсказку....
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
10 лет назад