| |
▼kao さん：
subtotalで出来ますよ。小生も人から教えていただいたコードを使っています。
B6〜数字が下に並んでいるとして、レイアウトが異なると思いますので、
必要に応じて変更してください。
Sub test ()
Dim rng As Range
On Error Resume Next
Sheets(1).Columns("B").SpecialCells(xlCellTypeFormulas).ClearContents
On Error GoTo 0
With Worksheets(1)
Set rng = .Range(.Cells(6, 2), .Cells(.Rows.Count, 2).End(xlUp))
’☆Cells(6,2)と(.Rows.Count,2)の数字を必要に応じて変更してください
With rng
If .Row > 5 Then .Cells(.Count + 1).Formula = "= SUBTOTAL(9," & .Address & ")" '☆.Row>5は６列目以降です、必要に応じて変更してください
End With
End With
End Sub
>どなたかよろしくお願いします。
>オートフィルター後に一つの列を集計し，表示されている最終行の次の行などに集計行を表示したいと思っております。
>VBAのSUBTOTAL関数ですると表示はされるのですが，途中で余分な集計もされるため意図したようにはなりません。エクセルの関数を使っておこないますと，オートフィルターをかけると集計行が隠れて見えません。何か良い方法はないでしょうか。メッセージボックスなどに表示されるのではなく表に表示されるようにしたいのです（その後印刷するため）。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
