エクセルの並べ替え機能で最優先されるキーが同点のとき次に優先されるキーで降順に並べ替えたい

Question

エクセルの並べ替え機能で最優先されるキーが同点のとき次に優先されるキーで降順に並べ替えたいのですが、同点部分が並べ替えされません。

以下のような抜粋したデータがあり、

最優先されるキーにTotal3を降順に設定し、次に優先されるキーにTotal4を降順に設定しましたが、

Total3の261.59550が同点なのでTotal4では345.96150が上位、345.34450がその次になる想定です。

しかし、Office Professional Plua 2019のエクセルで並べ替えしても正しくソートされません。

バグでしょうか？

それとも制限があるんでしょうか？

なにか他に設定とかありますでしょうか？

Total3	Total4
262.11250	345.57750
261.86250	345.37800
261.74500	346.04400
261.59550	345.34450
261.59550	345.96150
261.57850	345.49400
261.49550	345.94450

Answer 1

投稿されているデータをコピーして Excel に貼り付けてソートすれば問題なく並び替えられますね。

この動作を記録したマクロ

Sub Macro1()

'

' Macro1 Macro

'

'

Range("A2:AR13").Select 

ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear 

ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range( \_ 

    "AQ3:AQ13"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= \_ 

    xlSortNormal 

ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range( \_ 

    "AR3:AR13"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= \_ 

    xlSortNormal 

With ActiveWorkbook.Worksheets("Sheet1").Sort 

    .SetRange Range("A2:AR13") 

    .Header = xlYes 

    .MatchCase = False 

    .Orientation = xlTopToBottom 

    .SortMethod = xlPinYin 

    .Apply 

End With 

End Sub

を実行しても、同じ結果になります。

ファイルに問題があるのかも。

Answer 2

処理は一回でやりたいです。

Answer 3

まったく同じ設定でやってもダメでした。

ただ、不思議なことに質問に貼り付けたデータをまっさらなエクセルのシートにコピペして貼り付けて実行するとソートされました。

しかし、大本のデータだとTotal3しかソートされませんでした。

ちなみに質問に貼り付けたデータは抜粋で、以下のVBAマクロでソートさせています。

Total3がAR、Total4がASになります。

Set Wrk = Worksheets(SHEET\_TEAMPOINT)

セル番地 = Wrk.Range("A" & Format(startrowpos\_w)).End(xlDown).End(xlToRight).Address(0, 0) 

セル番地 = Wrk.Range("AS" & Format(startrowpos\_w)).End(xlDown).Address(0, 0) 

lastRow = Wrk.Cells(2, 1).End(xlDown).Row 

Wrk.Sort.SortFields.Clear 

'第1キー追加 

Wrk.Sort.SortFields.Add Key:=Range("AR" & Format(startrowpos\_w) & ":AR" & Format(lastRow)), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal 

'第2キー追加 

Wrk.Sort.SortFields.Add Key:=Range("AS" & Format(startrowpos\_w) & ":AS" & Format(lastRow)), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal 

Wrk.Sort.SetRange Range("B" & Format(startrowpos\_w) & ":" & セル番地) 

Wrk.Sort.Header = xlGuess 

Wrk.Sort.MatchCase = False 

Wrk.Sort.Orientation = xlTopToBottom 

Wrk.Sort.SortMethod = xlPinYin 

Wrk.Sort.Apply 

以下は本来は551行ある大本のデータの抜粋です。一行目はヘッダです

P1	P2	P3	P4	P5		F						P						S						V						PB						H						Total3	Total4
1	2	3	8	48		14.666	14.0165	14.3665	14.1495	15.183		14.5165	14.4665	13.4665	14.5995	0		14	13.9	13.933	13.2165	0		14.9	14.25	14.916	14.166	14.7165		15	14.783	15.033	15.033	0		15.1	13.75	14.033	13.5995	0		262.11	345.58
1	2	3	5	48		14.666	14.0165	14.3665	14.083	15.183		14.5165	14.4665	13.4665	13.7665	0		14	13.9	13.933	13.283	0		14.9	14.25	14.916	14.383	14.7165		15	14.783	15.033	14.55	0		15.1	13.75	14.033	14.583	0		261.86	345.38
1	2	3	8	30		14.666	14.0165	14.3665	14.1495	13.5665		14.5165	14.4665	13.4665	14.5995	11.5495		14	13.9	13.933	13.2165	14.3165		14.9	14.25	14.916	14.166	13.9		15	14.783	15.033	15.033	15.033		15.1	13.75	14.033	13.5995	14.433		261.75	346.04
1	2	3	5	21		14.666	14.0165	14.3665	14.083	13.883		14.5165	14.4665	13.4665	13.7665	14.733		14	13.9	13.933	13.283	12.916		14.9	14.25	14.916	14.383	14.583		15	14.783	15.033	14.55	14.0995		15.1	13.75	14.033	14.583	13.133		261.60	345.34
1	2	3	5	12		14.666	14.0165	14.3665	14.083	13.833		14.5165	14.4665	13.4665	13.7665	14.7665		14	13.9	13.933	13.283	13.9165		14.9	14.25	14.916	14.383	14.533		15	14.783	15.033	14.55	14.133		15.1	13.75	14.033	14.583	12.333		261.60	345.96
1	2	3	5	8		14.666	14.0165	14.3665	14.083	14.1495		14.5165	14.4665	13.4665	13.7665	14.5995		14	13.9	13.933	13.283	13.2165		14.9	14.25	14.916	14.383	14.166		15	14.783	15.033	14.55	15.033		15.1	13.75	14.033	14.583	13.5995		261.58	345.49
1	2	3	5	30		14.666	14.0165	14.3665	14.083	13.5665		14.5165	14.4665	13.4665	13.7665	11.5495		14	13.9	13.933	13.283	14.3165		14.9	14.25	14.916	14.383	13.9		15	14.783	15.033	14.55	15.033		15.1	13.75	14.033	14.583	14.433		261.50	345.94
1	2	3	8	84		14.666	14.0165	14.3665	14.1495	0		14.5165	14.4665	13.4665	14.5995	0		14	13.9	13.933	13.2165	0		14.9	14.25	14.916	14.166	15.133		15	14.783	15.033	15.033	0		15.1	13.75	14.033	13.5995	0		261.50	344.83
1	2	3	4	48		14.666	14.0165	14.3665	14.233	15.183		14.5165	14.4665	13.4665	13.6665	0		14	13.9	13.933	14.2995	0		14.9	14.25	14.916	14.283	14.7165		15	14.783	15.033	14.6665	0		15.1	13.75	14.033	13.9165	0		261.50	345.79
1	2	3	8	19		14.666	14.0165	14.3665	14.1495	13.483		14.5165	14.4665	13.4665	14.5995	13.183		14	13.9	13.933	13.2165	14.4665		14.9	14.25	14.916	14.166	14.566		15	14.783	15.033	15.033	14.3495		15.1	13.75	14.033	13.5995	12.816		261.50	345.51

Answer 4

手元環境（Microsoft 365 Apps for Enterprise）だとこんな感じでちゃんと並べ替えできますね。

バージョンは以下

Answer 5

こんにちはパナソニック!

これを修正する簡単な方法(完璧ではないかもしれませんが)は、最初に列4を降順に並べ替え、次にTotal3とTotal4の両方を選択してから、一緒に並べ替えることです。

下の画像を参照してください

追加の支援が必要な場合は、さらにお手伝いさせていただきます。

よろしくお願いいたします シャキル

この回答は自動翻訳されています。文法や表現の誤りが発生した場合はご容赦ください。