День добрый.
пытаюсь сделать сортировку на выбранном диапазоне ячеек от второй строки первой ячейки до 9 столбца не известной ячейки (каждый раз может быть разная)
lLastRow- номер последней ячейки
и не знаю как дальше выбрать участок
от А2 до Н lLastRow
что бы сортировку применить на этом диапазоне ячеек
пытаюсь сделать сортировку на выбранном диапазоне ячеек от второй строки первой ячейки до 9 столбца не известной ячейки (каждый раз может быть разная)
lLastRow- номер последней ячейки
и не знаю как дальше выбрать участок
от А2 до Н lLastRow
что бы сортировку применить на этом диапазоне ячеек
Код |
---|
lLastRow = Cells.SpecialCells(xlLastCell).Row Range("A3", Rows.Count).Select 'Set ra = sh.Range(sh.Range("a11"), sh.Range("a" & sh.Rows.Count).End(xlUp)).Resize(, 10) 'Selection.ra 'ni?oe?iaea ' Range("A3:H4107").Select ActiveWorkbook.Worksheets("Pivot Table").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Pivot Table").Sort.SortFields.Add Key:=Range( _ "B3:Rows.Count"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("Pivot Table").Sort.SortFields.Add Key:=Range( _ "A3:Rows.Count"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("Pivot Table").Sort.SortFields.Add Key:=Range( _ "H3:Rows.Count"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("Pivot Table").Sort .SetRange Range("A3", Rows.Count).Select .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With |