|
こんばんは、
マクロの勉強中ですので、よろしくお願いします。
あるデータの範囲はA1:Q6となっている(A1:A17はタイトルです)。
小計を自動的に計算するため、試しにマクロを記録し、実行したところで、きちんとA列の値に基づき、並べ替えられて、そして、Q列小計の計算ができました。
質問:データの横方向の列増減はないですが、縦方向のデータはよく変わります。
これを対応するには、どのように修正すれば、よいでしょうか?
Sub TEST001()
Range("A2:Q6").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A2:A6"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A1:Q6")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("I3").Select
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(17), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Sub
|
|