Определение колонок / ячеек в не смежном диапазоне

Posted by Chas under Basic, Пост-обзор

подскажите пожалуйста, как макросом определить номера столбцов в выделенном не смежном диапазоне? и загнать эти номера столбцов в массив

Bape}l{ka:
вроде разобралась, что там к чему
в итоге, вот так мы смотрим номера строк

Sub DefinitionSelectionRows()

'определяет в несмежном диапазоне по выделению № строк и загоняет их в массив

Dim r As Range, rArea As Range, ArrayRows(), i&

Dim msg$

For Each rArea In Selection.Areas

    MsgBox rArea.Address     'выводит адреса несмежных диапазонов

    For Each r In rArea.Rows

        ReDim Preserve ArrayRows(i)

        ArrayRows(i) = r.Row: msg = msg & " " & ArrayRows(i)

        i = i + 1

    Next

Next

MsgBox msg

End Sub

тема на форуме

Похожие статьи

• Примечание в ячейки листа со значением из другой ячейки
• Как макросом брать данные с word документов в excel?
• Как сделать, чтобы выводило сообщение «данные пользователем не заполнены», если все ячейки столбца G пустые
• Вывести сообщение, если ячейки excel не заполнены
• Как зафиксировать кнопку на экране?
• Найти совпадения ячеек столбца С и столбца Е и вывести все совпавшие ячейки в столбец G по клику кнопки
• Как сделать выпадающий список с добавлением новых элементов?
• Удалить строки таблицы по встречающимся словам
• Как написать макрос который бы по клику по ячейке скрывал столбец?
• Как сделать чтобы скрывался и открывался столбец?