Страницы: 1
RSS
Заполнение пустых ячеек с помощью макроса
 
Всем добрый День! Заранее извиняюсь если данный вопрос уже поднимался, но в поиске я его не нашел. Итак проблема в следующем: Есть столбец в таблице со значениями (по порядку) A, (пусто), (пусто)... (пусто), B, пусто), (пусто)... (пусто),C пусто), (пусто)... (пусто) и т.д. Необходим макрос который заполнял бы пустые ячейки значениями А до ячейки B, соотвественно все пустые ячейки ниже ячейки со значением B значением B до ячейки со значением C и так до до последнего значения, скажем Z. Пример ниже. Зараннее спасибо!
 
См. пример в файле: http://excelvba.ru/XL_Files/Sample__24-11-2009__20-52-36.zip  
 
 
Вот весь код:  
 
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
 
Можно ещё короче:  
 
Sub test()  
   [c3:c18].SpecialCells(4).FormulaR1C1 = "=r[-1]c"
End Sub
 
Огромное спасибо!
 
а вот здесь описана пара советов как это сделать без макроса:)))  
http://planetaexcel.ru/tip.php?aid=86
 
Еще раз спасибо!
Страницы: 1
Читают тему
Наверх