マクロで数値の小さい順に並べたい。

質問

マクロで数値の小さい順に並べたい。

すみません、教えてください。B列に数値が順不同で記述されているのですが、その数値をA列に数値の
小さい順に並べ変えたいと思っています。それを、マクロで記述する方法を教えて頂けませんでしょうか。

回答No.1

merlionXX · ベストアンサー

B列のデータの途中に空白がないなら

Sub test01()
　　Range(Range("B1"), Range("B1").End(xlDown)).Copy Range("A1")
　　Range(Range("A1"), Range("A1").End(xlDown)).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo
End Sub

でOKです。

お礼

merlionXX様
有難うございます。解決できました。