Адрес выделенного диапазона

[kuguar]

Поиск по форуму результатов не дал,
хотя наверняка вопрос обсуждался, поэтому извините, но всё-таки:

Как из VBA узнать адреса верхней левой и нижней правой ячеек выделенного диапазона,
и что будет, если выделить не связанные диапазоны ( с зажатым Ctrl)?

[Genyaa]

Selection.Address или ActiveWindow.RangeSelection.Address - адрес (адреса через запятую) выделенной области в тектовом виде (можно управлять параметрами, чтобы выдать адрес в нужном виде).

Если выделенных областей больше одной, то коллекция Areas возвращает все области поотдельности:

ActiveWindow.RangeSelection.Areas.Count - количество выделенных областей в выделении
ActiveWindow.RangeSelection.Areas(2).Address - адрес второй выделенной области в выделении

ActiveWindow.RangeSelection.Areas(2).Row - номер первой строки во второй области выдления
ActiveWindow.RangeSelection.Areas(2).Column - номер первого столбца во второй области выделения
ActiveWindow.RangeSelection.Areas(2).Rows.Count - кол-во строк во второй области выделения
ActiveWindow.RangeSelection.Areas(2).Columns.Count - кол-во столбцов во второй области выделения

Вычислить номер последних строки и столбца области, думаю, не составит труда.

[kuguar]

Большое спасибо!