选择一个范围，避免隐藏单元格，使用 ActiveCell.Offset()

Question

我正在运行一个宏，它要求输入工作表名称和参考单元格，然后选择一系列单元格，包围我们选择的单元格。 对我的数据应用过滤器后，某些行会被隐藏，因为它们不需要。 问题是，宏没有考虑到这一点，也计算了隐藏的行。 这是我在宏的原始版本中使用的代码：

.....应用一些 InputBox 并搜索用户的值后，执行以下行：

Range(ActiveCell.Offset(90, 0), ActiveCell.Offset(-252, 2)).Select
Selection.Copy

以这种方式隐藏的行包含在选择中。 我尝试了以下修改

Range(ActiveCell.Offset(90, 0), ActiveCell.Offset(-252, 2)).SpecialCells(xlCellTypeVisible).Select
Selection.Copy

但是没有成功。

我想知道，任何人都可以提出一种将ActiveCell.Offset 与SpecialCells(xlCellTypeVisible) 结合使用的方法，从而产生上述宏的功能——即选择一系列单元格，避免过滤后隐藏的行？

Answer 1

要从一系列选定单元格中仅选择可见单元格，您可以使用以下代码行：

Selection.SpecialCells(xlCellTypeVisible).Select

就像这个例子：

Range(ActiveCell.Offset(90, 0), ActiveCell.Offset(-252, 2)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy

下面的代码是关于如何计算行数的示例。 所以，但有一个问题你必须考虑。

如果您将所选内容粘贴到原始工作表中，则在您复制所选内容的区域中可能存在隐藏行。 如果是这样，您复制的文本也将被隐藏。

因此，您必须将数据复制到新工作表以避免该问题，或者您必须将数据复制到工作表 1 的底部。

Option Explicit
'Define a Constant for the Amount of Rows you Need
Private Const ConstAmountRows As Integer = 40
Sub Test()
    Dim intCountedRows As Integer
    Dim idx As Integer
    Dim intDifference As Integer

    idx = 0
    Do
        If Not (intCountedRows = ConstAmountRows) Then
            intCountedRows = ConstAmountRows
            idx = idx + 1
        End If
        Sheets("Sheet1").Select
        'Select the Range with the Amount of Rows you need ideally
        Range("A1:A" & intCountedRows + idx).Select

        'Select only the Visible Cells
        Selection.SpecialCells(xlCellTypeVisible).Select
        Selection.Copy

        Sheets("Sheet2").Select 'Select another Sheet
        '***-> Her you can select the Place you want to Paste the Text<-***
        Range("B1").Select
        ActiveSheet.Paste

        '*** Count the Rows that you Paste
        intCountedRows = Selection.Rows.Count
    'if the Counted Rows are not equal to the Amount. Repeat
    Loop While Not (intCountedRows >= ConstAmountRows)
End Sub