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

Question

我有列A到J被过滤，所以有些行是隐藏的。第1行始终是标题行，我不希望这样。我只想在E和J列中为可见单元格设置一个范围对象。请注意，可见行之间会有隐藏的行。

谢谢Andrew。

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)