以下のコードを使用して、 "Rangeクラスの小計メソッドが失敗しました"というエラーボックスが表示されました。これを修正するにはどうしたらいいですか?コードを書き換えて、小計に変更する列数に対応できるようにするにはどうすればよいですか?VBA Excel小計エラー
Range("A1").Select
Selection.Subtotal GroupBy:=3, Function:=xlSum, TotalList:=Array(14, 15, 16 _
, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, _
43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63), Replace:= _
True, PageBreaks:=False, SummaryBelowData:=True
ないように、このヘルプにそれを構築することがあります。http://stackoverflow.com/questions/23276881/run-time-error-1004-subtotalを-modod-of-range-class-failed – Vityata
*変更する列の数に対応できるようにコードを書き直すにはどうすればいいですか? - 各列をループして列番号を配列変数にロードする必要があります。これを 'TotalList'引数に渡します。 –