Всем добрый День! Заранее извиняюсь если данный вопрос уже поднимался, но в поиске я его не нашел. Итак проблема в следующем: Есть столбец в таблице со значениями (по порядку) A, (пусто), (пусто)... (пусто), B, пусто), (пусто)... (пусто),C пусто), (пусто)... (пусто) и т.д. Необходим макрос который заполнял бы пустые ячейки значениями А до ячейки B, соотвественно все пустые ячейки ниже ячейки со значением B значением B до ячейки со значением C и так до до последнего значения, скажем Z. Пример ниже. Зараннее спасибо!
Заполнение пустых ячеек с помощью макроса
24.11.2009 18:19:15
|
|
|
|
24.11.2009 18:51:21
См. пример в файле:
Вот весь код: Sub test() Dim cell As Range: Application.ScreenUpdating = False For Each cell In [c3:c18].Cells If Len(cell) = 0 Then cell = cell.Offset(-1) Next cell End Sub |
|
|
|
24.11.2009 18:53:34
Можно ещё короче:
Sub test() [c3:c18].SpecialCells(4).FormulaR1C1 = "=r[-1]c" End Sub |
|
|
|
24.11.2009 19:11:47
Огромное спасибо!
|
|
|
|
24.11.2009 21:46:38
а вот здесь описана пара советов как это сделать без макроса:)))
|
|
|
|
25.11.2009 11:13:11
Еще раз спасибо!
|
||||
|
|
|||
Читают тему