|
▼kobasan さん:
今晩は、私もオートフィルターをかけて、このような体験をしたのですが・・・
オートフィルターをかけたがため、計算(個数)されているのですが、隠れて
しまい(非表示され)ます。それを避ける方法はあるのでしょうか。
例えば次のような例です
1 項目 ▽
2 22
3 33
4 44
5 55
6 22
7 55
8 100
項目22で絞り、カウントするとカウント数が出ません
出す方法で何か良い方法はあるでしょうか。
>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
|
|