ＥＸＣＥＬのソート（並び替え）について

Question

Ａ列　　  Ｂ　　 　Ｃ                    　 　Ａ　　　 Ｂ　 　　Ｃ
１行　 2         4        5                    １　　1        2        3

２     1         3        3      ===>          ２    1        2        4   
                  
３     2         1        2                       ３    2        3        5

                                                 の様に並べたい

nishi6 · Accepted Answer

複数列に折り返して並べると解釈して下記のマクロを書いて見ました。参考にして下さい。
シート1の任意行数、任意列数のデータをシート2に必要行数で折り返してソートします。
前提として、シート1、シート2のシート名はSheet1、Sheet2で、シート2はクリアして、そこに結果を書き込みます。
シート1のデータを全てソート対象にします。不要なデータは消去しておいて下さい。見出しもない前提です。

(1)シートのメニューから、ツール→マクロ→Visual Basic Editor でVBE画面に移ります。 
(2)VBEメニューで、挿入→標準モジュールで標準モジュールを挿入します。 
(3)そのコードウインドウ（現れた広い場所です）に下記コードをコピーし貼り付けます。 
(4)シートに戻り、ツール→マクロ→マクロでSortEXを実行します。

Public Sub SortEX()
　　Dim ws1, ws2 As Worksheet        'ワークシート
　　Dim rg As Range                  'セル
　　Dim dtCount As Long              'データカウンタ
　　Dim ColumnsCount1 As Integer     '列数(シート1)
　　Dim RowsCount2 As Long           '行数(シート2)
　　Dim MaxRowCount As Long          'シート2で必要な最大行数
　　Dim ColCot As Integer            '列カウンタ
　　Dim LastRow As Long              'シート2の最終行

　　Set ws1 = Worksheets("Sheet1")
　　　　ColumnsCount1 = ws1.UsedRange.Columns.Count
　　Set ws2 = Worksheets("Sheet2")

　　'シート2にデータを転記
　　ws2.Cells.ClearContents          'シート2をクリア
　　For Each rg In ws1.UsedRange     '入力があればシート2にコピーする
　　　　If rg <> "" Then
　　　　　　dtCount = dtCount + 1: ws2.Cells(dtCount, 1) = rg
　　　　End If
　　Next

　　'シート2をソートする
　　ws2.Activate: Range("A1").Select
　　Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess
　　'シート1の列数で適切に配置する
　　MaxRowCount = Int((ws2.UsedRange.Rows.Count - 1) / ColumnsCount1) + 1
　　LastRow = ws2.UsedRange.Rows.Count
　　While MaxRowCount < LastRow
　　　　ColCot = ColCot + 1
　　　　Range(Cells(MaxRowCount + 1, ColCot), Cells(LastRow, ColCot)).Cut
　　　　Range("A1").Offset(0, ColCot).Select: ActiveSheet.Paste

　　　　LastRow = ws2.UsedRange.Rows.Count
　　Wend
　　Range("A1").Select
End Sub

yuizuian · Answer

> 　　　Ａ列　　 Ｂ　　 　Ｃ 　 　Ａ　　　 Ｂ　 　　>
>Ｃ 
>１行　 2 4 5 １　　1 2 3 
>
>２ 1 3 3 ===> ２ 1 2 4 
>
>３ 2 1 2 ３ 2 3 5  

が何を表しているのかわかりにくいので
もう少しわかりやすく書いていただければありがたいです。

Haizy · Answer

A B C ==>A B C
2 4 5 ==>1 2 3 
1 3 3 ==>1 2 4 
2 1 2 ==>2 3 5 

かな？数字の展開法則ががさっぱり読めません。

予想としては、
（小さい）Ａ１～Ａ３→Ｂ１～Ｂ３→Ｃ１～Ｃ３（大きい）
という順番に並べたいと言う感じですか。ちがうかなぁ？？？

補足願います。

comv · Answer

こんばんは！

私もHaizyさんの書かれている
＞（小さい）Ａ１～Ａ３→Ｂ１～Ｂ３→Ｃ１～Ｃ３（大きい） 
と思えますが、縦横配列の並べ替えは無理だとおもいます。

１案としては
データ範囲以外のセルに
=SMALL($A$1:$C$3,(COLUMNS($A$1:A1)-1)*3+ROWS($A$1:A1))
と入力してデータ域と同列同行数まで複写すれば並び変わったものが表示されます。
それを複写して　データ域に　値の貼り付けすればＯＫです。
（注：式中の＊３はデータが３列の時です）

ＥＸＣＥＬのソート（並び替え）について

> Ａ列 Ｂ Ｃ Ａ Ｂ >

この回答への補足

A B C ==>A B C

この回答への補足

こんばんは！

この回答への補足

複数列に折り返して並べると解釈して下記のマクロを書いて見ました。

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

> 　　　Ａ列　　Ｂ　　　Ｃ　　Ａ　　　Ｂ　　　>