Форум по VBA, Excel и Word

Sub Макрос()

    Dim rng_AF As Range, vis As Range, ar As Range
    Dim i As Long
   
   
    ' Отключение монитора, чтобы ускорить макрос. Можно ещё отключить пересчёт формул.
    Application.ScreenUpdating = False
   
    '1. Присваиваем фрагменту, с которым работает автофильтр, имя 'rng_AF'. Далее в коде будем обращаться к этому фрагменту
        ' по имени 'rng_AF'. Может быть так будет удобнее писать и читать код.
    Set rng_AF = ActiveSheet.AutoFilter.Range
   
    '2. Убираем из фрагмента первую строку, т.к. это шапка. Чтобы было проще написать код.
    Set rng_AF = rng_AF.Rows("2:" & rng_AF.Rows.Count)
   
    '3. Присваиваем видимым строкам имя 'vis'. Далее в коде будем обращаться к видимым строкам,
        ' используя имя 'vis'. Если скрыты все строки, то произойдёт run-ошибка, которая
        ' остановит макрос. Чтобы не было остановки макроса, команда помещается внутрь
        ' перехватчика ошибок.
    On Error Resume Next
    Set vis = rng_AF.SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
   
    '4. Если все строки скрыты, то в переменной 'vis' будет текст 'Nothing'.
    If vis Is Nothing Then
        Application.ScreenUpdating = True
        MsgBox "Готово.", vbInformation
        Exit Sub
    End If
   
    '5. Двигаемся по видимым областям. Области образуются, если между видимыми строками,
        ' есть невидимые строки.
    For Each ar In vis.Areas
        ' Двигаемся по строкам области.
        For i = 1 To ar.Rows.Count
            ' Изменяем данные в видимой строке.
            ar.Cells(i, "B").Value = ar.Cells(i, "B").Value + 1
        Next i
    Next ar
   
    ' Включение монитора.
    Application.ScreenUpdating = True
   
    '7. Сообщение.
    MsgBox "Готово.", vbInformation

End Sub