VBA ソートすると、１、１１、２，３になって・・

VBAにて下記のようなコードでソートすると、１、１１、２，３になってしまいました。
数字ではなく、文字として認識していると、このようになると書かれていました。
どうすれば、１、２、３、１１と並び替えれるのしょうか？

If Numbers1(i) > Numbers1(j) Then

No.5 ベストアンサー 回答者： keithin 回答日時： 2014/07/06 18:22

＞どうすれば、１、２、３、１１と並び替えれる

方法１）
自作プログラムでソートせず、エクセルに任せます。

sub macro1()
range("A:A").sort key1:=range("A1"), order1:=xlascending, header:=xlno, dataoption1:=xlsorttextasnumbers
end sub



方法２）
変更前：
If Numbers1(i) > Numbers1(j) Then

変更後：
If Numbers1(i) - Numbers1(j) > 0 then

この回答へのお礼

回答ありがとうございます。
方法２がシンプルで良さそうですね。

お礼日時：2014/07/06 21:17

No.4 回答者： kkkkkm 回答日時： 2014/07/06 18:01

No3です。

訂正

Numbers
↓
Numbers1(i)

No.3 回答者： kkkkkm 回答日時： 2014/07/06 17:58

なんか数字が全角ぽいので

Val(StrConv(Numbers, vbNarrow))
の方がいいかもしれません。

この回答へのお礼

回答ありがとうございます。

お礼日時：2014/07/06 21:16

No.2 回答者： kkkkkm 回答日時： 2014/07/06 17:54

Val(Numbers1(i))

とかにして数値に変換してください。

この回答へのお礼

回答ありがとうございます。
こうすればよいのですね。

お礼日時：2014/07/06 21:16

No.1 回答者： nag0720 回答日時： 2014/07/06 17:17

もし、Numbers1の桁数がすべて10桁以内であるなら、

If Right("0000000000" & Numbers1(i), 10) > Right("0000000000" & Numbers1(j), 10) Then

とすれば、１、２、３、１１となる。

この回答へのお礼

回答ありがとうございます。

このような方法で、なぜ数字とみなすようになるのでしょうか？

お礼日時：2014/07/06 21:15