| |
▼だめだこりゃ さん：
こんばんは。
>すみません。
>Range("a2", Range("a2").End(xlDown)). _
> SpecialCells(xlCellTypeVisible).Count
>のようにやったらできました。
>
>でも、抽出後１件もデータがない場合、件数が65300件とかになっちゃいます。
>もとのデータの行数が見出し行も含めて237行あるので、それが何か影響しているのでしょうか？
>
>１件もデータがない場合は０件にしたいのですがいい方法がありましたら是非教えてください。
抽出後１件もデータがない場合、
Range("a2", Range("a2").End(xlDown))だとデータ入力セルの最終行を取得していませんね！！
End（Xlup）だと取得してくれます。
'===================================================================
Sub test()
With Range("a1", Range("a" & Rows.Count).End(xlUp))
If .Count > 1 Then
MsgBox .SpecialCells(xlCellTypeVisible).Count - 1
Else '元々Ａ列に見出し以外にデータがない場合
MsgBox 0
End If
End With
End Sub
確認してみて下さい。
|
|
