Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как записать несвязанные диапазоны в переменную типа range
 
#1
07.02.2017 11:31:11
Коллеги, помогите с одной штукой. Есть переменная типа Range. Ее можно получить из диапазона ячеек. А если этот диапазон сложный, т.е. A2:A8,C2:C8 ? Как записать такой диапазон в переменную через Cells?  
 
 
 
#2
07.02.2017 11:43:14
Вариант (используются несмежные диапазоны для копирования заголовка таблицы - фиксированный диапазон и выбранной строки. Но лучше бы Вы привели пример реальной задачи, для чего хотите использовать запрашиваемые сведения):
Код
Dim rng As Range
Dim rng2 As Range
Dim rngAttach As Range

Set rng = Nothing
Set rng2 = Nothing

    On Error Resume Next
    
Set rng = Sheets("info_list").Range("A4:N4").SpecialCells(xlCellTypeVisible)
Set rng2 = findvalue.EntireRow.Resize(1, 14)
    
    With ThisWorkbook.Worksheets("info_list")
        Set rngAttach = .Range(rng.Address & "," & rng2.Address)
    End With
Изменено: Astroid1 - 07.02.2017 11:44:06
 
 
 
#3
07.02.2017 11:45:12
Можно попробовать через Union
Код
Union(Range(Cells(1, 1),Cells(1, 2)), Range(Cells(5, 8),Cells(5, 9))).Select
Кому решение нужно - тот пример и рисует.
 
 
 
#4
07.02.2017 12:13:53
Спасибо большое!!!!!
 
 
 
Страницы: 1
Наверх