VBA コンパイルエラー 型が一致しません

Question

エラーの解決方法がわかりませんのでよろしければご教授お願いいたします。
下記部分のcountの部分で「コンパイルエラー　型がいっちしません」と表記されます。ネットで調べたところ、そのまま、データ型が一致していないといことなのですが、どこをどのように記述すればいいかが全く分かりません。

下記内容はマクロ記録で記録した内容をfor文で回したいと思っています。

お手数おかけいたしますがご教授よろしくお願いいたします。

「エラーがでる部分」
Set namelist = wb.ListObjects("氏名").ListRows.Count

Sub 更新()

Dim wb As Worksheet
Dim namelist As ListObject
Dim i As Long


Set wb = ActiveWorkbook.Worksheets("原紙")
Set namelist = wb.ListObjects("氏名").ListRows.Count



    For i = 1 To namelist

        ActiveSheet.ListObjects("全体").Range.AutoFilter Field:=3, Criteria1:=i
        Range("全体[[#Headers],[NO]]").Select
        Range(Selection, Selection.End(xlToRight)).Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
        Sheets(i).Select
        Range("A17").Select
        ActiveSheet.Paste
        Sheets("試し").Select
        ActiveSheet.ListObjects(i).Range.AutoFilter Field:=3
        Range("A1").Select
        Application.CutCopyMode = False
        Application.CutCopyMode = False
    Next i

Comments

[1T2R3M4]

abcabcさんは
wb.ListObjects("氏名").ListRows.Count
の返す型は何と考えていますか。

Answer 1

まず、エラーの箇所ですが、Countプロパティですから、テーブル（リスト）のレコード数（行数）を取得します。なので、数値です。
数値の変数に値を代入するときは、Setは使いません。

Set namelist = wb.ListObjects("氏名").ListRows.Count

また、代入する変数もListObjectではなく、Long型などの数値型にすべきです。

Dim namelist As ListObject

Comments

[退会済みユーザー]

hex様

ご返信ありがとうございます。
理解できました。
勉強します。

Answer 2

wb.ListObjects("氏名").ListRows.Count

だからじゃね？

ここによると、

Count プロパティ

テーブル（リスト）のレコード数（行数）を取得します。

戻り値 ・・・ レコード数

つまり型が違う。
流石にこれでもわからないなら諦めた方がいいです。だって基礎を蔑ろにしているからです。
足し算すらわからない人に微積分を説明するようなものです。微積分以前の問題ですよね。

この回答でなんとなく対策が取れるならいいですが。