Заполните пустые ячейки с фиксированным значением

Question

Я пытаюсь извлечь число каждые 20 строк и заполнить его следующими 19 ячейками.Моя текущая формула для извлечения - =IF(MOD(CELL("row",A20),20)=0,AV21,""), и я попытался =IF(BJ21="",LOOKUP(1,1/($BJ$1:$BJ$10000<>""),$BJ$1:$BJ$10000),BJ21), чтобы найти значение, если оно есть, но я не могу запустить его с самого начала.Он идет ко дну и принимает последнее значение.

Это изображение того, как оно выглядит сейчас и как оно должно выглядеть:

Answer 1

Option Explicit

Sub Fill_20()

Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Test") '<-- Update

Dim i As Long, j As Long
Dim LR As Long, LC As Long
LR = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
LC = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column

For i = 1 To LR Step 20
    ws.Range(ws.Cells(i, 1), ws.Cells(i + 19, LC)).Value = ws.Range(ws.Cells(i, 1), ws.Cells(i, LC)).Value
Next i

End Sub