Заполнение пустых ячеек в Excel
Имеется ячейка с числом, например 11. Ниже несколько ячеек пустые, потом 12 ну и так далее. Как сделать заполнение пустых ячеек числом, которое выше? Например, в первой ячейке 11, вторая пустая. Значит ставим туда 11. Третья тоже пустая, опять ставим 11. В четвертой ячейке стоит 12, значит в пятую тоже ставим 12. Ну и ограничить число строк, например чтоб заполнило так 10000 ячеек и стоп. Спасибо
Sub cells_fill()
On Error Resume Next
For i = 1 To 10000
If Cells(i, 1).Value = "" Then Cells(i, 1).Value = Cells(i - 1, 1).Value
Next i
End Sub
Опции:
"i=1", 1 - строка с которой начинается процесс. если надо начать со строки 1, то оставляете без изменений.
Cells(i, 1) - i будет из верхней опции, а вот 1 - номер столбца. если процесс будет в колонке А - без изменений.
в той конфиурации которая сейчас, процесс начнется с ячейки A1 и до A10000.
По поводу как вставить код в ексель море инфы в нете, но если что - пишите