SpecialCells (xlCellTypeVisible) дополнительная строка выбрана в Excel VBA

Question

Hello All,

В настоящее время работает над SpecialCells (xlCellTypeVisible), где после фильтрации данных ячейки будет выделен зеленым цветом, как показано на рисунке 1, но когда используется формула, строка также не выделяется.

Результат, который мне нужен, чтобы получить видимые ячейки, будет выделен без добавления дополнительной строки, как показано на image 2.

Ниже используется формула.

OB2.ActiveSheet.UsedRange.Offset(1, 0).SpecialCells(xlCellTypeVisible).Rows.Select
        With Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent6
            .TintAndShade = 0.399975585192419
            .PatternTintAndShade = 0
        End With

Answer 1

Мы пытаемся удалить заголовок, используя .Offset(1,0). Это, однако, добавляет строку в нижней части. Рассмотрим:

Sub RemoveHeaderRow()
    Dim tablee As Range
    Dim tableeBody As Range

    Set tablee = Range("A1").CurrentRegion
    Set tableeBody = tablee.Offset(1, 0).Resize(tablee.Rows.Count - 1, tablee.Columns.Count)

    tableeBody.Select
End Sub

Это диапазон для использования SpecialCells вкл.