Блог

У меня есть созданный мной макрос, но когда я запускаю макрос, он заполняет обновленное значение до нижней части листа, а не до нижней части набора данных, есть ли способ заставить его заполняться только частично?

 With ActiveSheet
    .AutoFilterMode = False
    
        With Range("I1", Range("I" amp; Rows.Count).End(xlDown))
            .AutoFilter Field:=1, Criteria1:="="
            
                On Error Resume Next
                .Resize(.Rows.Count - 1).Offset(1, 0).SpecialCells(xlCellTypeVisible).Value = "1"
                On Error GoTo 0
        End With
   .AutoFilterMode = False
End With