EXCELでマクロが

質問

昨日から、期待する動きでなくなりました。
シートに新たに数式を加え、rank関数ではきちんと表示するのですが、マクロを動かすと、
期待した動きでなくなりました。
Sub Sheet2STD昇順並べ替え()
'
' Sheet2STD昇順並べ替え Macro
'

'
Range("B6:V24").Select
ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add Key:=Range("C7:C24") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet2").Sort
.SetRange Range("B6:V24")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A1").Select
End Sub

図にある下向きの矢印にマクロを登録しています。

回答No.1

ushi2015 · ベストアンサー

こんにちは
どのように期待した動きではなくなったのでしょうか？
Sub Sheet2STD昇順並べ替え()
'
' Sheet2STD昇順並べ替え Macro
'
　　With ActiveWorkbook.Worksheets("Sheet2")
　　　　.Sort.SortFields.Clear
　　　　.Sort.SortFields.Add _
　　　　　　Key:=.Range("C7:C24") _
　　　　　　, SortOn:=xlSortOnValues _
　　　　　　, Order:=xlAscending _
　　　　　　, DataOption:=xlSortNormal
　　　　With .Sort
　　　　　　.SetRange .Parent.Range("B6:V24")
　　　　　　.Header = xlYes
　　　　　　.MatchCase = False
　　　　　　.Orientation = xlTopToBottom
　　　　　　.SortMethod = xlPinYin
　　　　　　.Apply
　　　　End With
　　End With
End Sub
下向きの矢印って事は、降順？
xlAscendingではなくて、xlDescending？