|
nossoriさん、kobasan さん こんばんは。
前もって行方向に空白セルを挟んで数式を入れていれば問題なく、
表示するようですが・・
VBAならこんなんでもできると思います。
なんかもっとスマートな方法はないものでしょうか?
なんかベタでちょっといや。。。
Sub test()
Dim myR As Range
Dim cnt As Long
Dim 行 As Long
With Worksheets("sheet1")
Set myR = .Range("A1").CurrentRegion
行 = myR.Rows.Count
myR.AutoFilter field:=1, Criteria1:="22"
On Error Resume Next
cnt = .AutoFilter.Range.Columns(1).SpecialCells _
(xlCellTypeVisible).Count - 1
On Error GoTo 0
With .Range("A" & 行).Offset(3, 0)
.ClearContents
.Value = cnt
End With
End With
End Sub
|
|