Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Копировать данные предыдущей ячейки, до следующей заполненной
 
Нашла на форуме макрос, но почему-то он выдает ошибку в первой строке.
Код
Sub CopyCells()
' В выделенном вертикальном диапазоне (клетки по столбцу к примеру А2:А150)  
' заполнены следующие клетки: А2, А10, А60, А80  
' Макрос позволит размножить значение заполненных клеток на внизлежащие до следующей заполненной  
' Таким образом после выполнения макроса мы получим следующее:  
' диапазон А3-А9 будет заполнен значениями клетки А2  
' диапазон А11-А59 будет заполнен значениями клетки А10  
' диапазон А61-А79 будет заполнен значениями клетки А60  
' диапазон А81-А150 будет заполнен значениями клетки А80  
'  
Dim cel As Range

' Цикл перебора клеток выделенного диапазона  
For Each cel In Selection
 
' Если клетка со сдвигом вниз на одну позицию Offset(1, 0) пустая = ""  
' то она равна значению текущей клетки  
If cel.Offset(1, 0) = "" Then cel.Offset(1, 0) = cel
 
' перемещаемся на клетку вниз  
Next  
End Sub

Помогите, пожалуйста! Копирование необходимо в первом и втором столбце.
Изменено: Kristen - 30 Май 2018 15:34:31
 
Уважаемая Kristen!
Полагаю, можно обойтись без макроса...  :)
Заполнение пустых ячеек
 
Цитата
Копировать данные предыдущей ячейки
Код
Sub FillBlankCells()
Dim iLastRow As Long
  iLastRow = Cells(Rows.Count, 3).End(xlUp).Row
    With Range("A6:B" & iLastRow)
      .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
      .Value = .Value
    End With
End Sub
 
Kuzmich, Все равно не работает, End With выделяет красным, а первую строку желтым, и пишет что Sub не определен.
 
Мотя, Спасибо, но макросом удобнее и быстрее) А так я Power Query пока пользуюсь.
 
Цитата
Все равно не работает, End With выделяет красным
Kristen
, а вы полностью скопировали код?
 
Kuzmich, Да, полностью, не работает
 
Если выделяет красным, значит где-то ошибка. Ищите, у меня работает.
Страницы: 1
Читают тему (гостей: 1)
Наверх