在 excel vba 中選擇了 SpecialCells(xlCellTypeVisible) 額外行

Question

大家好，

目前正在處理 SpecialCells(xlCellTypeVisible) ，在過濾數據后，單元格會以綠色突出顯示，如圖 1 所示，但是當使用公式時，行號也會被選中。

我需要獲得可見單元格的結果將突出顯示，沒有添加額外的行，如圖 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)刪除 header 。 但是，這會在底部添加一行。 考慮：

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的范圍。