如何在两个不相邻的列中设置等于可见单元格的范围

Question

我有A到J列经过过滤，因此隐藏了一些行。第1行始终是标题行，我不希望这样做。 我只想为E和J列中的可见单元格指定一个范围对象。请注意，可见行之间将存在隐藏行。

谢谢 安德鲁。

Answer 1

尝试以下方法。我做出了一些显而易见的假设，您必须进行修改。

With worksheets("mySheet")

     Dim lastRow as Long
     lastRow = .Cells(.Rows.Count,1).end(xlup).Row

     Dim filterRange as Range
     Set filterRange = .Range("A1:J" & lastRow)

     With filterRange

         .AutoFilter 1, "myFilter"

         Set region1Range as Range
         Set region1Range = .Columns(5).SpecialCells(xlCellTypeVisible)

         Set region2Range as Range
         Set region2Range = .Columns(10).SpecialCells(xlCellTypeVisible)

    End With

End With

Dim regionRange
Set regionRange = Union(region1Range, region2Range)