【Excel2010マクロ】シート名を固定したくな
マクロには全然詳しくないので、マクロの記録を利用して下記のようなデータの並び替えのマクロを作成したのですが、sheet名が「Sheet2」(大文字小文字区別無し)じゃないとマクロが動きません。
--------------------
Sub 並び替え()
'
' 並び替え Macro
'
'
Columns("A:A").Select
Columns("A:AR").Select
With ActiveWorkbook.Worksheets("Sheet2").Sort
.SortFields.Clear
.SortFields.Add Key:=Range("AN:AN"), Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("AC:AC"), Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("AD:AD"), Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("AF:AF"), Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("AG:AG"), Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("AH:AH"), Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("AJ:AJ"), Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("AK:AK"), Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("AN:AN"), Order:=xlAscending, DataOption:=xlSortNormal
.SetRange Range("A:AR")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
--------------------
マクロを実行するsheet名は都度変わりますので、sheet名を固定しなくてもデータを並び替えられるようにするには、どのようにしたらよろしいのでしょうか？
