|
▼自動記録編集者 さん:
ToralList:=Array(〜
の所を変数を利用して設定したいという事で良いですか?
コードの例としては、以下のようになります。
Sub subtotalsumple()
Dim myArray As Variant
Dim mySTR As String
Dim myCnt As Long
Dim myRow As Long
Dim myCol As Long
Dim myColSt As Long
myCol = 20 '集計開始の列番号
myRow = 4 '見出し行の行番号
myColSt = Cells(myRow, myCol).End(xlToLeft).Column - 1
Do Until Cells(myRow, myCol).Value = Empty
mySTR = mySTR & ", " & myCol - myColSt
myCol = myCol + 1
Loop
mySTR = Mid$(mySTR, 3)
myArray = Split(mySTR, ",")
Cells(myRow, myColSt + 1).Select
Selection.Subtotal GroupBy:=5, _
Function:=xlSum, _
TotalList:=myArray, _
Replace:=True, _
PageBreaks:=False, _
SummaryBelowData:=True
End Sub
エラートラップ等、加味してないので適当に改良して使ってください。
|
|