Заполнение последующей ячейки по данным предыдущей

[dimixix]

Доброго времени суток. Нужна помощь. Задача: заполнять ячейку ниже по данным ячейки выше в диапазоне от 31 по 41 ячейку. Например с 31 по 36 ячейки заполняются вручную произвольными значениями, а ячейки от 37 по 41 должны заполниться значением 36 ячейки. А у меня все заполняет по значению 31 ячейки

Private Sub CommandButton1_Click()

For i = 31 To 41

If Cells(i, 18) = 0 Then
                              
Cells(i + 1, 18) = 0

Else

Cells(i + 1, 18) = Cells(i, 18)

End If

Next i

End Sub

[Казанский]

Sub dimixix()
  On Error Resume Next
  With Range(Cells(31, 18), Cells(41, 18))
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
  End With
End Sub

[dimixix]

Спасибо за помощь, пока ждал придумал вот такой код и он заработал. Как думаете, подойдет?

Private Sub Workbook_Open1()
For i = 31 To 40
If Cells(i + 1, 18) = "" Then
Cells(i + 1, 18) = Cells(i, 18)
End If
If Cells(i + 1, 19) = "" Then
Cells(i + 1, 19) = Cells(i, 19)
End If

Next i

End Sub

[Казанский]

Наверно да, но:
1. автоматически при открывании книги он выполняться не будет, т.к. в названии процедуры есть "1";
2. если поправите название, код будет работать с листом, который окажется текущим на момент открывания книги. Если в книге больше одного листа, это может привести к обработке не того листа и соответственно к порче данных.

Чтобы в моем коде обработать два столбца, достаточно одно из чисел "18" заменить на "19".

[dimixix]

Спасибо за помощь. Сейчас я запускаю заполнение при помощи кнопки. Меня смутили разговоры об запуске на конкретном листе. Достаточно будет вместо единички прописать название листа, чтобы правильно работал код? И еще, что хочется понять - это как сделать данный код для 10 табличек? Сейчас я просто копирую и создаю ниже новый макрос, но наверное, это не правильно.

[Казанский]

Достаточно будет вместо единички прописать название листа, чтобы правильно работал код?
Нет. Нужно либо выбрать нужный лист, тогда Cells без указания принадлежности будут относиться к этому листу

Private Sub Workbook_Open()
  Sheets("Лист2").Select
  'и т.д.

Либо явно указывать принадлежность каждой ячейки

Private Sub Workbook_Open()
Dim s As Worksheet
  Set s = Sheets("Лист2")
  For i = 31 To 40
    If s.Cells(i + 1, 18) = "" Then s.Cells(i + 1, 18) = s.Cells(i, 18)
    If s.Cells(i + 1, 19) = "" Then s.Cells(i + 1, 19) = s.Cells(i, 19)
  Next i
End Sub