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

質問

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

If Numbers1(i) > Numbers1(j) Then

回答No.5

keithin · ベストアンサー

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

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

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

お礼

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

回答No.4

kkkkkm

No3です。訂正

Numbers
↓
Numbers1(i)

回答No.3

kkkkkm

なんか数字が全角ぽいので
Val(StrConv(Numbers, vbNarrow))
の方がいいかもしれません。

お礼

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

回答No.2

kkkkkm

Val(Numbers1(i))
とかにして数値に変換してください。

お礼

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

回答No.1

nag0720

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

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

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

お礼

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

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