Exceｌ 複数の表を並び替えしたい VBA

質問

いつも大変お世話になっております。

複数の表を一気に並び替えしたいと思っています。
条件はいたって簡単で、
C列に１～の数値が記入されています。

A　B　C
あ 12　1　
い 15　3
う 13　2

え　15　2
お　12　1

かき 16　2
く　 17　1

　　↓

A　B　C
あ 12　1　
う 13　2
い 15　3

お　12　1
え　15　2

く　 17　1
かき 16　2

データが入力されている最終行まで、
繰り返し並び替えを行いたいです。

回答よろしくお願いいたします。

回答No.2

tom04 · ベストアンサー

こんにちは！
一例です。

データはA1セルからあり、空白セルまでを一塊としています。

Sub Sample1()
Dim i As Long, k As Long
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(i, "A") <> "" Then
k = i
Do While Cells(k, "A") <> ""
k = k + 1
Loop
Cells(i, "A").CurrentRegion.Sort key1:=Cells(i, "C"), order1:=xlAscending, Header:=xlNo
i = k
End If
Next i
End Sub

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

お礼

回答ありがとうございました！
思っていた通りの動作をしました！

回答No.1

mt2008

この位ならVBAを使わなくとも、D1に↓と入れて下までコピーしD列をキーに並び替えては？
=COUNTIF(C$1:C1,"")*(1+MAX(C:C))+C1

補足

C列に並び替えるNoが書いてあります。
C列をキーに並び替えます。