VBAのCopy（）メソッドから返されたRangeオブジェクトを設定しますか？

Question

マクロを使用してExcel 2003のフィルタリングされたリスト範囲でCopy（）メソッドを使用しました。返された範囲を取得して行を数えたいので、複数の行をコピーしたことを確認できます。 「オブジェクト必要」エラー。

は、私はコピー（）メソッドは、範囲オブジェクトを返す、Microsoftのウェブサイト上でVBAの参照で聞いています。しかし、これはそうではないように思われるコードから。教えてください！

ありがとうございます。

For J = 1 To .ListObjects.Count 
    ' Filter 
    .ListObjects(J).Range.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=CritRange 
    Set CopiedRange = .ListObjects(J).Range.Copy ' Object required error 
    If CopiedRange.Rows.Count > 1 Then 
    {etc...} 

Answer 1

ExcelはCopy（）操作で範囲オブジェクトを返しません。それをコピーする前の行数が表示されますが、特に可視行のみを考慮しないとこれは機能しませんでした。したがって、私は、新しい関数を記述するために必要な：

Function CountVisibleRows(rg As Range) 
    Dim NumRows As Integer 
    ' Count visible cells in the first column, minus one to account for the header 
    NumRows = rg.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1 
    CountVisibleRows = NumRows 
End Function 

私は、コピーする前に範囲でこれをテストし、（コピー（）メソッドのコピーのみ表示される行はデフォルトであるため）コピーされる行の数を決定しました。