Vba принимает исходный выбор даже после смещения с помощью «itemwidth»

Question

Я создаю макрос, который находит заголовок, а затем смещает его на 1 строку ниже. Я хочу заполнить значение для всего столбца. Но когда я запустил макрос, изменим значение смещения на значение «Требуется», но после того, как он получил Selection.filldown, его копирование заголовка вместо значения смещения. А также я не могу понять, как пропустить, если выбор не найден. Может ли кто-нибудь помочь с этим?

Sub Macro7() 
Rows("3:3").Select 
Selection.Find(What:="item_width").Select 
Selection.Offset(1, 0).Select 
ActiveCell.FormulaR1C1 = "1" 
Selection.FillDown 
End Sub 

Answer 1

Как сказал Christmas007, удалите .select и .activate:

Sub Macro7() 
    Dim rng As Range 
    Dim rws As Long 
    rws = Range("A" & Rows.Count).End(xlUp).Row - 2 
    Set rng = Rows("3:3").Find(What:="item_width") 
    If Not rng Is Nothing Then 
     rng.Offset(1, 0).FormulaR1C1 = "1" 
     rng.Offset(1, 0).Resize(rws).FillDown 
    End If 
End Sub 

Кроме того, как вы имели заливку, так как только одна клетка заполняет его с клетками непосредственно выше. Чтобы заполнить диапазон, вам необходимо продиктовать пределы диапазона. Вышесказанное является одним из способов.