|
平さん、かみちゃん さん、こんばんは。
>
並び替え前
7324
7324C
6028
16028C
かみちゃん さんが
>「数値」を「数字の文字列」にしてしまっていいですか?
とおっしゃっているように文字列として比較(並べ替え)を行わなければなりません。
'=================================================
Sub test2()
Dim col As Long 'データが入力されている最右列番号
col = Cells(2, Columns.Count).End(xlToLeft).Column
Set rng = Range("a2", Cells(Rows.Count, 1).End(xlUp))
With rng.Offset(0, col)
.Formula = "=a2&"""""
End With
With Range("A2").CurrentRegion
.Sort Key1:=Cells(2, col + 1), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin
End With
rng.Offset(0, col).Value = ""
End Sub
細かいエラーチェックはしていませんが・・・。
上記のコードは、
作業列を設けて、A列のデータを文字列化した列をキーにして
並べ替えを行っています。
|
|