Excel VBA Worksheet.Matchで行番号を取得したい

Question

前提

マクロが有効なエクセルブックで、データを取り扱っています。
VBAコードはSheet1に記入しています。

実現したいこと

• Sheet1に存在する数値Aと、値が完全一致するセルをSheet2の2番目のRow(A~ZZ)から探す（Column番号が分かればOK）
• Findメソッドを使うと時間がかかるのでMatchメソッドを使用したい
• 数値AはSheet1のセルの値を&でつなげたもの。コードではShikibetsuNoという変数に格納している。

発生している問題・エラーメッセージ

明らかに数値Aに一致するセルがあるにも関わらず、Worksheet.Matchで値を得ることができない（おそらくN/Aになっている）
下のコードでいうと「値がありません」というメッセージコードが表示される

該当のソースコード

※前提
Sheet1に書いているVBAです

Sheet1のセル情報
Cells(1, 4)=1
Cells(4, 4)=1
Cells(6, 4)=130
Cells(7, 4)=2

Sheet2のセル情報
B2=111301
C2=111302
今回はC2の位置を取得したい

※ShikibetsuNo とは数値Aのこと
Dim ShikibetsuNo As Variant
    ShikibetsuNo = Cells(1, 4).Value & Cells(4, 4).Value & Cells(6, 4).Value & Cells(7, 4).Value
Dim Var As Variant
    Var = 0

On Error Resume Next
        Var4 = WorksheetFunction.Match(ShikibetsuNo, Worksheets("Sheet2").Range("A2:ZZ2"), 0)
On Error GoTo 0
        
        If Var4 = 0 Then
           MsgBox "値がありません"
        Else
　　　　（その後の処理）

試したこと

・Application.Matchを使う→特に変化なし（この際エラーのところはIf IsError(Var) Thenとかで書き直しました）
・matchの検索範囲を狭める→ダメでした

補足情報（FW/ツールのバージョンなど）

エクセル　バージョン2016

Answer 1

Dim Var As Variant と変数宣言してますが、Varは使用されてません。
Var4を使用してますので、このVar4をVarに変更すれば動くのでは。

あと、ShikibetsuNo は文字列になるので、検索対象のセル値が数値だと値が見つからないとなりますので、
ShikibetsuNoを数値型に変換する必要があるかもしれません。

---

モジュールの先頭に Option Explicit と記述して変数宣言を強制しておくとこのような単純ミスを防ぐことができます。

【Excel小ネタ】ExcelのMATCH関数は実は２つある？ - FI's Story

Office TANAKA - 今さら聞けないVBA[変数って宣言しなくちゃいけないの？]

Comments

[ame410]

ありがとうございます！
>Var4をVarに変更すれば動くのでは。
これに関しては自分の書いたコードをteratailに書き写して編集するときにミスしたものです、混乱を招き大変申し訳ありませんでした。
>ShikibetsuNo は文字列になるので、検索対象のセル値が数値だと値が見つからない
まさにこれが原因でした。解決策として=Val()で数値に変換しましたが、これでうまくいきました。本当にありがとうございました。