Excelマクロで全シートで数値の並び替え

質問

Excelは2007を使っています

Sheet1～Sheet3のG列５～１００行に入っている数値を降順で並び替えたいのですが、
これをマクロで実現する方法がありましたらご教示をお願い致します。

F列には業者名、G列には取引数を入力しており、
これが業者名とズレる事無くソート出来るようにしたいと考えております。

出来た！と思ったのですが、業者名がズレてしまい非常に困っております。

よろしくお願いします！

回答No.1

keithin · ベストアンサー

ふつーにセル範囲をＧ列基準で並べ替えます。

ただし
＞Sheet1～Sheet3のG列５～１００行に入っている数値を降順で並び替えたい

ご説明のとおり５行目からタイトル行じゃなく数字が記入してあるとして。

sub macro1()
　dim i as integer
　for i = 1 to 3
　　worksheets("Sheet" & i).range("F5:G100").sort _
　　　key1:=worksheets("Sheet" & i).range("G5"), order1:=xldescending, header:=xlno
　next i
end sub

お礼

keithinさん

なんとか出来ました。

締め切り直前だったので大変助かりました。

本当にありがとうございます！