|
▼tamago さん ponponさん 今晩は
>vba超初心者です。f列の最下端から2行下にsubtotal関数を挿入しオートフィルターで抽出した個数をカウントさせようとしています。
>subtotal関数の範囲はf2からf列の下端までです。
>Range("f1").End(xlDown).Select
>Selection.Offset(3, 0).Select
>行 = Range("f1").CurrentRegion.Rows.Count
>ActiveCell.FormulaR1C1 = "=SUBTOTAL(3,R[行]C:R[-2]C)"
>以下略
>これを実行すると最終行のところで"アプリケーション定義またはオブジェクト定義のエラーです。"
>と出てきます。行のところに−をつけたりいろいろやったのですが、
'行は変数でので""の外に出すといいです。SUBTOTAL(3,R[-" & (行 + 2) & "]C:R[-3]C)"
Sub test()
Dim lastC As Range
On Error Resume Next
Sheets(1).Columns("F").SpecialCells(xlCellTypeFormulas, 23).ClearContents
On Error GoTo 0
Set lastC = Range("f65536").End(xlUp)
行 = Range("f1").CurrentRegion.Rows.Count
lastC.Offset(3, 0).FormulaR1C1 = "=SUBTOTAL(3,R[-" & (行 + 2) & "]C:R[-3]C)"
End Sub
|
|