|
A1:A500 のデータには、必ず "室" という文字が入っているとして
Sub MySort()
Application.ScreenUpdating = False
Columns(2).Insert xlShiftToRight
With Range("A1:A6")
With .Offset(, 1)
.Formula = "=VALUE(RIGHT($A1,LEN($A1)-FIND(""室"",$A1)))"
.Copy
.PasteSpecial xlPasteValues
End With
.Resize(, 2).Sort Key1:=Columns(2), Order1:=xlAscending, _
Header:=xlGuess, Orientation:=xlSortColumns
End With
Columns(2).Delete xlShiftToLeft
Range("A1").Activate
With Application
.CutCopyMode = False
.ScreenUpdating = True
End With
End Sub
で、どうでしょーか ?
|
|