不幸的是，在这种情况下，无法使用.Offset，因为它会返回所选内容下方15行的任何范围，无论该范围是可见的还是隐藏的。但是，Range.SpecialCells(xlCellTypeVisible)将具有多个.Areas，并且每个区域仅包含可见的单元格。您可以遍历.Areas，直到获得至少16行并选择它们，如下所示：

Sub test()
    Dim area As Range
    Dim CellCount As Integer
    Dim firstCell As Range
    Dim lastCell As Range

    With ActiveSheet.Range("A1").Offset(1,0).Resize(Rows.Count - ActiveSheet.Range("A1").Row,1)

        'first cell will be the the first cell of Areas(1)
        Set firstCell = .SpecialCells(xlCellTypeVisible).Areas(1).Cells(1,1)

        'Get last cell by looping through areas until their total cell count reaches 16.
        For Each area In .SpecialCells(xlCellTypeVisible).Areas
            'first area may already contain more than 16 cells,in which case we just get its 16th cell and exit.
            'If this is not the case,we add up rows.Count of each area until we get more than 16,and when that happens,'we get the cell of last area which is needed to get to 16.
            If CellCount + area.Rows.Count >= 16 Then
                Set lastCell = area.Cells(16 - CellCount,1)
                Exit For
            End If
            CellCount = CellCount + area.Rows.Count
        Next
    End With

    'finally,from the firstCell and lastCell we can get the range of first 16 visible cells.
    ActiveSheet.Range(firstCell,lastCell).Select
End Sub