Здравствуйте, уважаемые специалисты. Подскажите, каким образом можно осуществить сортировку значений по возрастанию- убыванию, при этом не перемещая заливку (и формат ячеек в целом)? В моем примере, если нажать на сортировку по убыванию, происходит сортировка значений, но при этом смещается заливка ячеек, которая должна оставаться на месте.
Код |
---|
Sub Макрос2()
'
' Макрос2 Макрос
Range("B6:F14").Select
ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("B6:B14"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Лист1").Sort
.SetRange Range("B6:F14")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A1").Select
End Sub |