Макрос суммирования ячеек со значениями,по нескольким условиям - VBA/Excel
Формулировка задачи:
Здравствуйте Уважаемые знатоки! Необходим макрос,задачу как смог пояснил в файле пример.
Решение задачи: «Макрос суммирования ячеек со значениями,по нескольким условиям»
textual
Листинг программы
Sub Al()
Dim v(), a&(2 To 8, 1 To 1), i&, j&
With Worksheets("Лист1") 'имя листа
v = .Range("A10", .Cells(.Rows.Count, 1).End(xlUp)).Value
For i = 2 To 8
For j = i To UBound(v) Step i
If v(j, 1) Then a(i, 1) = a(i, 1) + 1 Else Exit For
Next
Next
.Range("C3").Resize(7).Value = a
End With
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д