エクセルでのデータの並べ替えについて

質問

質問があります。下記のように並んでいるデータがあるとします。
　　前年　　　今年
ａ　１０　ｂ　２０
ｄ　３０　ａ　４０
ｅ　５０　ｃ　３０
ｃ　４０　ｆ　３５
ｇ　５５
これを、
　前年　今年
ａ　１０　４０
ｂ　　　　２０
ｃ　４０　３０
ｄ　３０
ｅ　５０
ｆ　　　　３５
ｇ　５５
という様に並べ替える方法を教えてください。（データは多数あります。）

回答No.2

BLUEPIXY · ベストアンサー

元表というシートにＡ１を基準に質問文のような表がある時
変換表というシートに質問文のような表を作ります。
マクロからconvertTable を呼び出して実行
----------------------------------------------------------------
Public Sub convertTable()
Dim 前年データ, 今年データ, keys, x, c
Dim 前年範囲 As Range, 今年範囲 As Range

Set 前年データ = CreateObject("Scripting.Dictionary")
Set 今年データ = CreateObject("Scripting.Dictionary")

With Sheets("元表")
Set 前年範囲 = .Range(.Range("A2"), .Range("A65535").End(xlUp))
Set 今年範囲 = .Range(.Range("C2"), .Range("C65535").End(xlUp))

For Each x In 前年範囲
前年データ.Add x.Value, x.Offset(0, 1).Value
Next
For Each x In 今年範囲
今年データ.Add x.Value, x.Offset(0, 1).Value
Next
End With

keys = asSet(Application.Union(前年範囲, 今年範囲))
Call ArraySort(keys, True)
With Sheets("変換表")
.Cells.ClearContents
.Range("B1").Value = "前年"
.Range("C1").Value = "今年"
c = 0
For Each x In keys
.Range("A2").Offset(c, 0).Value = x
If 前年データ.Exists(x) Then
.Range("A2").Offset(c, 1).Value = 前年データ.Item(x)
End If
If 今年データ.Exists(x) Then
.Range("A2").Offset(c, 2).Value = 今年データ.Item(x)
End If
c = c + 1
Next
End With
End Sub
Private Function asSet(r As Range) '重複しない数値データの配列にする
Dim NumList
Dim x As Range, i
Set NumList = CreateObject("Scripting.Dictionary")
For Each x In r
If Not NumList.Exists(x.Value) Then '重複チェック
NumList.Add x.Value, 1
Else '重複時の処理
NumList.Item(x.Value) = NumList.Item(x.Value) + 1
End If
Next
asSet = NumList.keys
End Function
Private Sub ArraySort(a, Optional ascending = 0) '規定値は大きいもの順
Dim wk, i As Integer, j As Integer, k As Integer
Dim n
n = UBound(a)
k = n \ 2
Do While (k > 0) 'シェルソート、ソート自体は昇順
For i = 0 To n - k
j = i
Do While (j >= 0)
If a(j) > a(j + k) Then
wk = a(j)
a(j) = a(j + k)
a(j + k) = wk
j = j - k
Else
Exit Do
End If
Loop
Next
k = k \ 2
Loop
If ascending = 0 Then '逆順にする
i = 0: j = n
Do Until (i >= j)
wk = a(i)
a(i) = a(j)
a(j) = wk
i = i + 1: j = j - 1
Loop
End If
End Sub

お礼

返答、お礼が遅くなりすいません。早速教えていただきありがとうございます。
助かりました。
この例題でいうａ、b、、、ｇでなくても並べかえができ、役に立ちました。
もちろん、項目もａ、b、、、ｇのように当方がすべて把握できていないケースが多いので、その場合でも出来たのですばらしいと思います。
やまりこのようにマクロで解決するしかないのですね。

回答No.5

imogasi

#4です。
＞実際のケースでは項目（この場合ａ、b、、、ｇ）をすべて把握していなくては出来ず
そんなことは十も承知です。
それであれば、（多分関数でという条件をつけて）質問を改めて質問してください。
関数でやろうとすると、本当はそちらの方が、難しい質問かもしれない。
＞「データは多数あります」が、それを暗示するのかもしれませんが
はっきり書いてください。
関数では難しいので、VBAでやって見ました。
A列から１列おきに、文字列があるとする。
例えばH列に、でてくる文字列を、１回だけ抜き出します。
Sub test01()
r = Range("a65536").End(xlUp).Row
c = Range("G1").End(xlToLeft).Column
MsgBox r & "=" & c
Cells(1, "H") = Cells(1, "A")
k = 1
For i = 1 To r
For j = 1 To c - 1 Step 2
If WorksheetFunction.CountIf(Range(Cells(1, "H"), Cells(k, "H")), Cells(i, j)) = 0 Then
k = k + 1
Cells(k, "H") = Cells(i, j)
End If
Next j
Next i
End Sub

お礼

ありがとうございます。
私の質問の仕方がわるかったですね。
関数、マクロともあまり理解がないものですから。
今回教えていただいたおかげで助かりました。
ただ、エラーをださないようにする方法もいまいちわからないものですから、実際に使いこなす自信はありません。
マクロのほうはほとんど理解つかいこなす自信がありませんから、関数での方法がわかり助かりました。

回答No.4

imogasi

例データ
ａ 10 ｂ 20
ｄ 30 ａ 40
ｅ 50 ｃ 30
ｃ 40 ｆ 35
ｇ 55
Ｇ列にa-gをれる。
Ｇ列　　Ｈ列　　　Ｉ列
ａ 10 40
ｂ #N/A 20
ｃ 40 30
ｄ 30 #N/A
ｅ 50 #N/A
ｆ #N/A 35
ｇ 55 #N/A
Ｈ列Ｈ１に
=INDEX($A$1:$B$5,MATCH(G1,$A$1:$A$5,0),2)
Ｉ列Ｉ１に
=INDEX($C$1:$D$5,MATCH(G1,$C$1:$C$5,0),2)
と入れて下方向に式を複写する。
結果は上記の通り。
#N/Aが出てしまっているが、ＭＡＴＣＨ関数がエラーの場合、空白にするように式を変えれば空白にできます。（略）

お礼

返答、お礼がおそくなりすいません。
教えていただきありがとうございます。
この例題の場合はできましたが、実際のケースでは項目（この場合ａ、b、、、ｇ）をすべて把握していなくては出来ず、この方法では解決できませんでした。

回答No.3

noname#37676

以下のように、ＡＢ列に「前年」、ＣＤ列に「今年」
1行目にタイトル、2行目からデータがあり、
A B C D
1]　　前年　　　今年
2]ａ　１０　ｂ　２０
3]ｄ　３０　ａ　４０
4]ｅ　５０　ｃ　３０
5]ｃ　４０　ｆ　３５
6]ｇ　５５

A11セルより集計とする場合、「VLOOKUP関数」を使い、
A 　 B 　 C
11] ＼　　前年　　今年
12] ａ　　１０　　４０
13] ｂ　　　　　　２０

B12セル「=IF(ISERROR(VLOOKUP($A11,$A$2:$B$6,2,FALSE)),"",VLOOKUP($A11,$A$2:$B$6,2,FALSE))」
C12セル「=IF(ISERROR(VLOOKUP($A11,$C$2:$D$6,2,FALSE)),"",VLOOKUP($A11,$C$2:$D$6,2,FALSE))」
上記をフィルコピー

お礼

返答、お礼が遅くなりすいません。
早速返答いただきありがとうございます。
教えていただいた方法で試してみました。
例題のケースではできました。
ただ、この場合、項目（この場合ａ、ｂ、、、ｇ）をすべて知っていなくてはならず、データ量が膨大な場合は、ちょっと時間がかかるとおもいました。
恐れ入りますが、この方法では解決！とまではいきませんでした。ありがとうございました。

回答No.1

telescope

B1セルに「前年」、D1セルに「今年」
A2セル以下にａ、ｄ、ｅ・・・の記号、B2セル以下に数値、C2セル以下に記号、D2セル以下に数値が入っているものとします。
C2からD列の最後までを範囲指定して、A列の下に移動します。
移動した数値をC列にずらします。
A2からデータの最後までを選択して、A列を最優先にして昇順で並べ替えます。
記号 前年 　今年
ａ 10
ａ 40
ｂ 20
ｃ 40
ｃ 30
ｄ 30
ｅ 50
ｆ 35
ｇ 55
こんなふうになります。
タイトルの「今年」をC1セルに移動させます。
A1セルにタイトルを入れます。ここでは「記号」としておきます。

表内のセルをどれか一つ選択した状態で、「データ」－「ピボットテーブル～」を選びます。
ピボットテーブルツールバーから
「記号」を「行のフィールド～」にドラッグします。
「前年」を「データアイテム～」にドラッグします。
「今年」も「データアイテム～」にドラッグします。
「データの個数：前年」となっていたら、右クリックして「フィールドの設定」で「集計の方法」を「合計」にします。
これで出来ると思います。

お礼

お礼、返答が遅くなりすいません。早速教えていただきありがとうございます。私の質問が舌足らずだったのですが、最終的には
　前年　今年　　差額
ａ　１０　４０　３０
ｂ　　　　２０　２０
という形にして分析したいのです。教えていただいた方法では、そこまですることが出来ず解決することができませんでした。