Вечер добрый,
Пытаюсь присвоить переменной диапазон и использовать еe в сортировке. Ругается. Как правильно?
Спасибо.
Пытаюсь присвоить переменной диапазон и использовать еe в сортировке. Ругается. Как правильно?
Код |
---|
Option Explicit Option Base 1 Public Диапазон As Range Sub Массивы() Диапазон = ActiveWorkbook.Worksheets("Лист1").Range("a1") Call Сортировка(Диапазон) End Sub Sub Сортировка(iCell As Range) 'сортирую по первому столбцу With ActiveWorkbook.Worksheets("Лист1").Sort .SortFields.Add Key:=Range(iCell), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal .SetRange Range(iCell.CurrentRegion.Value) .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub |
Спасибо.