Excel VBAで2列セットでソートする方法

質問

現在、ExcelVBAマクロにおいてsheet1から
　　　A　　　B　　　C
　　--------------
１│　a　　　1　　　あ
２│　ｂ　　　2　　　い
３│　a　　　2　　　う
４│　b　　　1　　　え
という配列のデータをコピーしてきてsheet2にBでソートして
　　　A　　　B　　　C
　　--------------
１│　a　　　1　　　あ
２│　ｂ　　　1　　　え
３│　a　　　2　　　う
４│　b　　　2　　　い
となるようなマクロを作成しております。
aとbが混在で扱いにくいのでマクロでないオートフィルターでaとbを切り替えて使うという状況です。
これではデータ上使い勝手が悪いので
　　　A　　　B　　　C
　　--------------
１│　a　　　1　　　あ
２│　a　　　2　　　う
３│　b　　　1　　　え
４│　b　　　2　　　い
このような配列に変更したいのですが、どのようなマクロを組めばよろしいでしょうか？

回答No.1

nobu_suzuki1 · ベストアンサー

マクロでなければならないのでしょうか？
単純にソート機能を使う際に、最優先するキーにＡ、2番目に優先されるキーをＢとしてソートすればお望みのソートが
可能ですが。
もし、それをマクロ化したいのであれば、その一連の動作をマクロで記録して、必要に応じていじるだけですぐ出来る
と思いますよ。

お礼

ボタン一つで全てのデータを整理できるようにと思ってやってますので、どうしてもマクロなのです。　「Excel　VBA　マクロ」という質問条件ですのでそこをご理解ください。

普通に「データ」-「並べ替え」をしても並び変わらずに四苦八苦していたので質問させて頂きました。
既に「Bで並び変えた」状態のデータだった為、「Bで並び変えてAで並び変える」ができなかったのではないかと思われます。
並べ替えの指定順序を「Bの次にA」としていたのから「Aの次にB」と変更すると無事並び替えができ、そのマクロを記録し、内容を確認しました。

その結果、自分が記載していたマクロが
範囲指定　キー1、オーダー１でB並びかえ
範囲指定　キー2、オーダー2でA並びかえ
としていたことが並び変えができない原因であると判明致しました。
記載の仕方がおかしかったようです。

お手数をお掛け致しました。

回答No.2

keithin

sub macro1()
　worksheets("Sheet1").range("A:C").copy destination:=worksheets("Sheet2").range("A1")
　worksheets("Sheet2").select
　range("A:C").sort key1:=range("A1"), order1:=xlascending, _
　　key2:=range("B1"), order2:=xlascending, header:=xlno
end sub
といったカンジでしょうか。

お礼

ご返事ありがとうございます。
range("A:C").sort key1:=range("A1"), order1:=xlascending, _
　　key2:=range("B1"), order2:=xlascending
ここの部分を
range("A:C").sort key1:=range("A1"), order1:=xlascending
range("A:C").sort key2:=range("B1"), order2:=xlascending
としていたことが間違いでエラーがでていたと判明いたしました。
「ピリオド」を使用し、
range("A:C").sort key1:=range("A1"), order1:=xlascending, _
　　key2:=range("B1"), order2:=xlascending
としたことで無事解決致しました。
お手数をお掛けして申し訳ありません。