|
マクロで 並び替えリストを書き込む(ユーザー設定リストに追加する)
部分を加えてみました。
Sub Sort1b()
Dim i As Long
Dim n As Long
Dim L As Long
'並び替えのリストにユーザー設定リストを追加
With Application
.AddCustomList _
ListArray:=Split("松山市,高松市,高知市,徳島市", ",")
L = .CustomListCount
End With
'3列づつ並び替え
With ActiveSheet.UsedRange
n = .Columns.Count
For i = 1 To n Step 3
.Columns(i).Resize(, 3).Sort _
Key1:=.Columns(i + 1), _
Order1:=xlAscending, _
OrderCustom:=L + 1, _
Header:=xlYes
Next
End With
'最後に追加したユーザー設定リストを削除
With Application
.DeleteCustomList .CustomListCount
End With
End Sub
|
|