VBA 変数について

質問

VBA初心者でございます。
VBAでgrpという変数を設定し、それをキーにしてオートフィルタをしたいです。
以下のコードではエラーがでてしまうのは、なぜでしょうか？

どうぞ宜しくお願いいたします。

Sub 絞り込み2()

Dim grp
Set grp = Worksheets("リスト").Cells(3, 2)

Worksheets("マスタ0701").AutoFilterMode = False
With Worksheets("マスタ0701").Range(Cells(3, "B"), Cells(Rows.Count, "CK").End(xlUp))
.AutoFilter Field:=13, Criteria1:=grp
'.CurrentRegion.Select
Range(Cells(3, "B"), Cells(Rows.Count, "CK").End(xlUp)).SpecialCells(xlVisible).Copy Worksheets("検索結果").Range("A1")
'.AutoFilter
End With

End Sub

回答No.1

kkkkkm · ベストアンサー

> Set grp = Worksheets("リスト").Cells(3, 2)

だとgrpにはWorksheets("リスト").Cells(3, 2)の値ではなくセルそのものがセットされます。

grpをWorksheets("リスト").Cells(3, 2)の値にしたいのでしたら

grp = Worksheets("リスト").Cells(3, 2).Value

としてください。

また、grpをセルそのものとして以降利用したいのでしたら

Set grp = Worksheets("リスト").Cells(3, 2)
のままで
Criteria1:=grp.Value

にしてください。

.Valueは省略できますが、できるだけ付けるようにした方が間違いがありません。

Dim grpの型も指定しているとより分かりやすくなります。
現状では何でもありなので、セルそのものとして扱いたいのか値として扱いたいのか不明です。

お礼

ありがとうございます！解決しました！
分かりやすいご説明感謝いたします。