вот простая программа для работы в Excel
суть программы : заполнить пустые клетки предыдущим значением по каждому столбцу
почему не работает не понимаю


Sub repl()

Dim myRange As Range
Set myRange = ThisWorkbook.Worksheets("Sheet").Range("A2:E22830")
Dim FirstValues(5)

For n = 1 To 5
FirstValues(n) = myRange.Cells(1, n).Value
Next n


For n = 1 To 5
For j = 1 To myRange.Rows.Count
If myRange.Cells(1, j).Value = "" Then ' problem here
myRange.Cells(1, j).Value = FirstValues(1)
Else
FirstValues(1) = myRange.Cells(1, j).Value
End If
Next j
Next n


End Sub

привет,

спасибо за помощь

на твоем фаиле все работает
на моем нет
сравнил : все точь в точь
не могу понять почему, ошибка та же самая

если же убрать второй цикл заменив его 5 конструкциями IF Else- тогда все ок