エクセルに入力したデーター並び替え方法。

質問

ウインドウズ７を使用しています。

オフィス2010になります。

エクセルの表にランダムに文字や数字を入力したその後にデーターの並び替えをしたいのですが、

古いオフィスでやっていたので、新しいバージョンでうまくデーターの並び替えが出来ません。

ランダムに入力した文字や数字を、揃えたいのです。

例えば　A列に　都道府県　B列に　月日　　C列に金額等をランダムに入力し、都道府県でまとめて

それに伴って　月日・金額を一度にまとめてデーターの並び替えをしたいのです。

並び変えて各都道府県別の集計が出るようにしたいのです。

都道府県　　月日　　　金額
大阪　　　　　6/2　　　　3.000
和歌山　　　 6/4 5.000
京都　　　　　6/8 8.000
奈良　　　　　6/9　　　　5.000
大阪　　　　　6/10　　　8.000
奈良　　　　　6/11　　　6.000

もっと長いデーターになりますが以上のようなデーターを下記のようにしたいのです。

都道府県　　　　月日　　　金額
大阪　　　　　　　6/2　　　　3.000
大阪　　　　　　　6/10　　　8.000
　　　　　　　　大阪小計　11.000
奈良　　　　　　　6/9　　　　5.000
奈良　　　　　　　6/11　　　6.000
奈良小計　　11.000
和歌山　　　　　　6/4　　　　5.000

のように並び替えをしたいと思っています。

わかりづらいと思いますがご指導のほどよろしくお願いいたします

回答No.1

sp6m6cy9 · ベストアンサー

データ範囲を選択しリボンのデータタブにある小計(右端の方)をクリックするとなるかと思います。
先に並べ替えが必要なので忘れないように。

お礼

ありがとうございました。
出来ました。

回答No.3

tom04

こんばんは！
VBAになってしまいますが、一例です。

尚、1行目は項目行でデータは2行目以降にあり、都道府県列はA列・月日はB列・金額はC列　だとします。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub 並び替え() 'この行から
Dim i As Long
Application.ScreenUpdating = False
Range("A1").CurrentRegion.Sort key1:=Range("A1"), order1:=xlAscending, Header:=xlYes, _
key2:=Range("B1"), order1:=xlAscending, Header:=xlYes
For i = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
If Cells(i, 1) <> Cells(i - 1, 1) Then
Rows(i).Insert
End If
Next i
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row + 1
With Cells(i, 1)
If .Value = "" Then
.Value = .Offset(-1) & "小計"
.Offset(, 2) = WorksheetFunction.SumIf(Range("A:A"), .Offset(-1), Range("C:C"))
With .Resize(1, 2)
.Merge
.HorizontalAlignment = xlCenter
End With
End If
End With
Next i
Application.ScreenUpdating = True
End Sub 'この行まで

※　A列は昇順で並び替えしていますので、都道府県順は五十音順となります。

こんな感じではどうでしょうか？m（_ _）m

お礼

ありがとうございました。

回答No.2

japaneseman5963

図のやりかたはいかがでしょう？小計の計算式は入れられないとおもいますので都度Σを求める操作が必要ですが。

お礼

ありがとうございました。