[[20170621181138]]　『表の並べ替え』（やっくん）　ページの最後に飛ぶ

『表の並べ替え』（やっくん）

 1.5|2.0|0.5|1.0|
 3.5|4.0|2.5|5.5|
 6.0|8.0|8.5|6.5|
 7.0|7.5|9.0|10.5|

と、４×４の表がありこれを横１列にしてなおかつ
昇順（大きい値→小さい値）にしたい場合
一番簡単な方法を教えてください。

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

＞横１列

横１行？縦１列？
いずれにしても、４×４なら、
コピペを繰り返して、１行（列）にしてから並び替え
この操作が最も簡単ではないでしょうか。

（マナ） 2017/06/21(水) 19:01

被りましたが、私も同感。

まず、B列を全部A列の下に移動。C列、D列と繰り返し、A列だけの縦16行のデータにします。
次に、16行全部範囲選択して、「データ」－「並び替え」。
並び替えた後にそのまま範囲コピー後、他のセルに「行列を入れ替える」指定で貼り付け、でいかがでしょうか。
（???） 2017/06/21(水) 19:05

今回は、この量なのですが普段はもっと多いそうで。

関数かマクロかで、なんとかならないでしょうか？
（やっくん） 2017/06/21(水) 20:35

横１行？縦１列？

どちらでしょうか。
並べ替えたものをどこに表示すればよいのでしょうか。

（マナ） 2017/06/21(水) 21:03

あらさがしのようで迷いましたが
これも確認です。

＞昇順（大きい値→小さい値）

どっち？

（マナ） 2017/06/21(水) 21:18

大きい方からです。
（やっくん） 2017/06/21(水) 21:22

横１行？縦１列？

どちらでしょうか。
並べ替えたものをどこに表示すればよいのでしょうか。

（マナ） 2017/06/21(水) 21:30

こういう感じの事をやりたいのでしょうか？

Sheet1のA1からデータが入っているとして、
Sheet2に並び替えたデータを1列に表示します。

Sheet2のF1にSheet1に入っているデータの行数を
Sheet2のG1にSheet1に入っているデータの列数を入れます。

Sheet2の
A1：=IF(ROW()>$F$1*$G$1,"",OFFSET(Sheet1!$A$1,INT((ROW()-1)/$G$1),MOD(ROW()-1,$G$1),,))
B1：=IF(A1<>"",RANK(A1,$A$1:$A$9999,0)+ROW()/10000,"")
C1：=IF(A1<>"",INDEX($A$1:$A$9999,MATCH(SMALL($B$1:$B$9999,ROW()),$B$1:$B$9999,0)),"")

A2～C9999までオートフィルします。

これでC列に昇順にデータが入ります。

Sheet1にデータが歯抜けになっていたり、数値以外が入っているとエラーになります。
データの最大数は９９９９になっています。

（K） 2017/06/21(水) 22:07

 データがA1から開始されていると想定

 Sub test()
    Dim i As Long
    With Cells(1).CurrentRegion
        For i = 1 To .Rows.Count
            .Rows(i).Copy Cells(1, .Columns.Count + 2).Offset(, (i - 1) * .Columns.Count)
        Next
        With Cells(1, .Columns.Count + 2).CurrentRegion
            .Sort .Rows(1), 2, , , , , , 1
            Application.Goto .Cells(1), True
        End With
    End With
End Sub
（seiya） 2017/06/21(水) 22:27

 ＞４×４

 それなら、こんなのでいいと思っていたのですけど、・・
 　　　　　　↓
 A7セル =LARGE($A$1:$D$4,COLUMN(A1))
  右にコピー

 ＞今回は、この量なのですが普段はもっと多いそうで。

 もっと現実的な例で聞いて貰えませんか？
 いずれにしても、そんなに難しいものにはならない様な気がします。

（半平太） 2017/06/21(水) 23:18

半平太さま

返信遅くなりました。

普段は、30～50件程となります。

書き出す位置は、任意の位置でクリックした場所から
とかで出来たら嬉しく思います。
（やっくん） 2017/06/28(水) 23:29

 ＞任意の位置でクリックした場所から

 そういうのはマクロじゃないとできませんが、
 エクセルはその目的だけに使う訳じゃないですから、
 違う目的でクリックした時と区別できる「何か」が必要です。

 その「何か」の説明がないと、誰も作れません。

 seiyaさんがマクロをアップしているので、それで勉強して、
 分からないことがあったら、seiyaさんに聞くのがいいかもです。

 ※もし、seiyaさんが、不在のようなら他の回答者も反応してくれるハズです。

（半平太） 2017/06/28(水) 23:53

         A       B       C      D
1	16 	17 	18 	19 
2	26 	27 	28 	29 
3	31 	32 	33 	34 
4	36 	37 	38 	39

 B14セル=LARGE($C$5:$F$8,B12)　と、書きうまくいくのですが↓

 1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16
 大	→													→	小
39	38	37	36	34	33	32	31	29	28	27	26	19	18	17	16

 =LARGE($C$5:$F$8,COLUMN(B12))　だと、２番目から大きいものからスタートします。↓

 1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16
 大	→													→	小
 38	37	36	34	33	32	31	29	28	27	26	19	18	17	16	#NUM!

（やっくん） 2017/06/29(木) 13:15

 ＞=LARGE($C$5:$F$8,COLUMN(B12))　だと、２番目から大きいものからスタートします。

 そりゃそうです。Column(B12)　って「2」ですから。

 どこから書き始めるにしても、A列から指定してやる必要があります。

 例:　Column(A12)

（半平太） 2017/06/29(木) 13:28

コメント返信：

[ 一覧(最新更新順) ]

[[20170621181138]] 『表の並べ替え』（やっくん） ページの最後に飛ぶ

[[20170621181138]]　『表の並べ替え』（やっくん）　ページの最後に飛ぶ