|
こんにちは。
データが入った表の最終行と最終列を求め、
データが入力されている範囲を集計したいと思い、
以下のようなコードを書いているのですが、
何度やっても『RangeクラスのSubtotalメソッドが
失敗しました。』というエラーがでてしまいます。
どこが悪いのか教えていただけないでしょうか?
よろしくお願いします。
-------------------------------------------
Sub 機種合計の入力()
Dim lon_Limirow As Long
Dim tuki As Integer
Set wshjisseki = Worksheets("上期実績")
wshjisseki.Activate
lon_Limirow = wshjisseki.Range("C65536").End(xlUp).Row '最終行の取得
tuki = wshjisseki.Range("IV" & lon_Limirow).End(xlToLeft).Column'最終列の取得
Range(Cells(5, 2), Cells(lon_Limirow, tuki)).Select
Selection.Subtotal GroupBy:=2, Function:=xlSum, _
TotalList:=Array(6, 10, 14, 18, 22, 26), Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End sub
|
|