Как установить диапазон, равный видимым ячейкам в двух столбцах, которые не находятся рядом друг с другом

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)