エクセルのVBAでソートをしたい

質問

エクセルの
A列に1,1,3,2,4・・・・・というデータがあって、
B列にB,A,C,D,E・・・・・というデータがった場合、
上から順番に1A,1B,2D,3C,4Eという順番に並べ替えしたいです。
エクセル単独でやる場合は、データの並べ替えでA列を第一優先、B列を第二優先で並べ替えをすればよいのですが、
VBAに埋め込んで、ボタンを押せば並べ替えできるようにできますでしょうか？

回答No.2

tom04 · ベストアンサー

こんばんは！
＞ボタンを押せば並べ替えできるようにできますでしょうか
というコトですので、Sheet上にコマンドボタンを挿入したとしての一例です。

尚、データはA1セルからあるとします。

Private Sub CommandButton1_Click()
Range("A1").CurrentRegion.Sort key1:=Range("A1"), order1:=xlAscending, Header:=xlNo, _
key2:=Range("B1"), order1:=xlAscending, Header:=xlNo
End Sub

※　タイトル行がある場合は当然コードも変わってきます。m(_ _)m

回答No.1

mesihuro

マクロの記録取ればいいだけではないのですか？？？