Excelのデータの並べ替えについて

質問

Excelのデータの並べ替えは（データ→並べ替え）で出来ますよね。
ところが一枚のシートにデータが入りきれず、複数のシートになった場合、
どのようにデータの並べ替えを摺るのでしょうか教えてください。
宜しく、お願いいたします。

回答No.4

popesyu

ピポットを使ってデータの参照時に複数のワークシートを指定してみるというのはどうでしょうか。

回答No.3

imogasi

もしどなたからも（ＶＢＡを使わない）エクセルだけでの解答が出なければご参考にしてください。
sheet1のＡ列のデータ数＋ＳＨＥＥＴ２のデータ数が６万数千の
エクセルの許容行数を越えていると言うことでしょうか。
それだと下記はだめですが、ＳＨＥＥＴ１のデータ数＋ＳＨＥＥＴ２
のデータ数＜エクセルの許容行数と仮定して述べます。
大型コンピュターのバッチ・プログラムでよく使ったマージの
ロジックです。ソート結果をＳＨＥＥＴ１のＢ列にセットしています。
ＳＨＥＥＴ１のＡ列とＳＨＥＥＴ２のＡ列はエクセルのソートをして後
最終行の下のセルにowariといれ、下記を実行してください。
６万数千のエクセルの許容行数を越えているときは、下記の
ＣＥＬＬＳ（Ｉ、２）の３箇所のところをディスクファイルに書き出だせば、
目的は達せられます。
Sub sort1()
x = 1　’sheet１のスタートは第１行から
y = 1　’sheet2のスタートは第１行から
i = 1 ’sheet１のソート後のデータのセットは第１行から
'------------
p1:
If Worksheets("Sheet1").Cells(x, 1) ="owari” Then
'cells(x,1) はＳＨＥＥＴ１のＡ列ｘ行を表す
Worksheets("Sheet1").Cells(x, 1) = 99999999
End If
If Worksheets("Sheet2").Cells(y, 1) ="owari" Then
'cells(ｙ,1) はＳＨＥＥＴ２のＡ列ｙ行を表す
Worksheets("Sheet2").Cells(y, 1) = 99999999
End If
'---------等しい時
If Worksheets("Sheet1").Cells(x, 1) = Worksheets("Sheet2").Cells(y, 1) Then
If Worksheets("Sheet1").Cells(x, 1) = 99999999 Then GoTo owari
Worksheets("Sheet1").Cells(i, 2) = Worksheets("Sheet1").Cells(x, 1)
'cells(i,2) はＳＨＥＥＴ１のB列 i 行を表す
i = i + 1　'直下の行にセットする
x = x + 1 '直下の行を見る
Else
'--------ＳＨＥＥＴ１が小
If Worksheets("Sheet1").Cells(x, 1) < Worksheets("Sheet2").Cells(y, 1) Then
Worksheets("Sheet1").Cells(i, 2) = Worksheets("Sheet1").Cells(x, 1)
i = i + 1
x = x + 1
Else
'--------ＳＨＥＥＴ２が小
Worksheets("Sheet1").Cells(i, 2) = Worksheets("Sheet2").Cells(y, 1)
i = i + 1
y = y + 1
End If
End If
GoTo p1
owari:
End Sub

回答No.2

nishi6

Excelだけで行うとすると、
（１）元の複数のシートをシート単位にソートしてしまいます。
（２）データ量と、どのようなデータか分かりませんが、例えばソートキーが1万未満、１万番台、2万番台・・・
　　　という感じで元のシートから別シートに集めて、そのシートを再度ソートしたらどうでしょうか。

10万件程度なら必要なシートは２枚で、２分割する位置を決めれば１回この操作を行えば可能だと思いますが・・・

回答No.1

bin-chan

ＡＣＣＥＳＳを利用して、並べ替えたデータをシートにするのが
簡単と思います。