|
初めて投稿いたします。
自動記録をもとに下記のように作成いたしましたが、
実行時エラー'1004' RangeクラスのSelectメソッドが失敗しました
となってしまい、どこが間違いなのか、わかりません。
お教え願えれば幸いです。
Sub Macro1()
Dim i As Long
For i = 1 To 6
Sheets(i).Range("B2").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range("D2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin
Selection.Subtotal GroupBy:=4, Function:=xlSum, TotalList:=Array(6), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
ActiveSheet.Outline.ShowLevels RowLevels:=2
Next i
End Sub
宜しくお願いいたします。
また、もっとスマートにできるのであればお教え下さい。
|
|