Работа в Excel (макрос/функция)
Нужно увеличить количество ячеек согласно значению
Sub zz00()
Dim i As Long, j As Long, k As Long
Dim S As String
For i = 1 To 2
S = Cells(i, 1)
For j = 1 To Cells(i, 2)
k = k + 1
Cells(k, 3) = S
Next j
Next i
End Sub
.
Начало и конец циклов сами отредактируете, согласно адресам ячеек
Чтобы посчитать количество одинаковых значений в Excel, можно использовать функцию «СчётЕсли» (COUNTIF).
Пример использования:
Выделите любую пустую ячейку.
Чуть выше найдите кнопку с функциями и нажмите на неё.
В окне «Вставка функции» выберите категорию «Статистические» и пролистайте список вниз до функции «СчётЕсли». Нажмите «ОК».
В окне «Аргументы функции» укажите диапазон тех значений, по которым будет производиться поиск. Можно написать вручную первую и последнюю ячейку или кликнуть мышкой на ячейку и, не отпуская, довести курсор до нужной, затем отпустить (текст появится в поле «Диапазон»).
Заполните поле «Критерий» — это то, что будет использоваться для поиска. Можно указать адрес ячейки или написать само значение для поиска.
Нажмите кнопку «ОК» и посмотрите результат.
измени параметры ячеек в специально отведённом в панели инструментов меню "Ячейки"
увеличь