Ссылка на диапазон: ошибка времени выполнения '1004' ошибка, определенная объектом

Question

Макрос для заполнения пробелов в выделении. Мне не нравится моя переменная rng, даже с объявлением Set и range.

Sub fill2()  

Dim Rng As Range      

Set Rng = Application.InputBox("Range here", Type:=8)  
    ActiveCell.Range("Rng").Select  
    Selection.SpecialCells(xlCellTypeBlanks).Select  
    Application.CutCopyMode = False  
    Selection.FormulaR1C1 = "=+R[-1]C"  
End Sub

Answer 1

Вы можете сделать это, используя встроенные функции Excel или VBA

Как вы и просили VBA.

Код VBA:

Sub fill2()
    Dim evalRange As Range

    Set evalRange = Application.InputBox("Range here", Type:=8)
    On Error Resume Next
    evalRange.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    On Error GoTo 0

End Sub

---

Собственные функции Excel:

1. Выберите диапазон
2. Нажмите: клавиша F5
3. Нажмите: Специальный
4. Выберите: Пробелы
5. Тип: =
6. Выберите ячейку выше с помощью мыши
7. Нажмите: Ctrl + Enter