|
▼はる さん:
こんにちは
私も2007以降のSortオブジェクト処理はなじめず、未だに2003までの
Sortメソッドコードを使っていますが、Sortオブジェクト処理方式であれば
アップされたコードはSample1の用になりますね。
もし、シート上に、この2列しか無ければ Sample2,Sample3でもOKですが。
Sub Sample1()
Dim z As Long
With Sheets("Sheet1")
z = .Range("A" & .Rows.Count).End(xlUp).Row
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=.Columns("A"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With .Sort
.SetRange .Parent.Range("A1:B" & z)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
End Sub
Sub Sample2()
With Sheets("Sheet1")
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=.Columns("A"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With .Sort
.SetRange Parent.Range("A1").CurrentRegion
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
End Sub
Sub Sample3()
With Sheets("Sheet1")
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=.Columns("A"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With .Sort
.SetRange .Parent.Cells
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
End Sub
|
|