Использование автозаполнения для нескольких столбцов с отфильтрованным списком

Question

Пытаюсь оптимизировать свою работу с формулами автозаполнения в отсортированном списке. Я попробовал несколько вариантов и обнаружил, что автозаполнение и заполнение не работают должным образом в отсортированном списке. Поэтому я использую свойство SpecialCells, и на самом деле он отлично работает с одним столбцом. Но иногда мне нужно заполнить несколько столбцов от 2 до 8, и если я изменю диапазон с одного столбца на несколько, все пошло не так, как я хотел.

Формулы устанавливаются в первой строке отфильтрованного списка.

Так что в этом случае все в порядке

Range("B17:B8196").SpecialCells(xlCellTypeVisible).FormulaR1C1 = Range("B17").FormulaR1C1

Но если я попробую этот код, все пошло не так

Range("B17:C8196").SpecialCells(xlCellTypeVisible).FormulaR1C1 = Range("B17:C17").FormulaR1C1

Есть ли у кого-нибудь идеи?

Answer 1

Итак, спасибо всем за ответы! :)

Нашел два способа решить эту проблему.

1. Я не ожидал, но очевидно, просто скопировав:

    Sub FFF()
       Range("A10:K10").Copy Range("A10:K1000")
    End Sub

Цикл с видимыми ячейками.

    Sub MultiFill
       Dim TheCell as range
          For Each TheCell In Range ("A11:K1000").SpecialCells(xlCellTypeVisible).Cells
             TheCell.FormulaR1C1 = Cells(10, TheCell.Column).FormulaR1C1
    End Sub