1 2 3 4 5 6 7 8 9 | Вариант I.iCountAreas = Selection.Areas.Count MsgBox "Количество несмежных ячеек/диапазонов - " & iCountAreasВариант II.iCountAreas = ExecuteExcel4Macro("AREAS(SELECTION())") MsgBox "Количество несмежных ячеек/диапазонов - " & iCountAreasНе забудьте предварительно проверить является ли выделенный об'ект диапазоном Используя первый способ можно определить количество несмежных ячеек/диапазонов в любом диапазоне, при этом, выделять его специально, конечно же, необязательно. |