VBA WorksheetFunction.Matchの型が一致しないエラー

Question

シートAのA列に13桁の数字が羅列されています。
またシートBのF列にも13桁の数字が羅列されています。

シートBでループ処理を行い、シートBの数字をシートAで探し出し、処理を行おうと思ったところ、

a_row = WorksheetFunction.Match(Cells(i, 6), Range("A:A"), 0)

この部分で　型が一致しません　とエラーが出てしまいます。

何度もMatchは使ったことあるので、列指定が間違っていたりということはありません。
Val()で検索数値を変換してみたんですが、それでも同じエラーが出ました。

どなたかお力添えをお願いします。

Answer 1

iに整数が入っているでしょうか？
エラー画面で「デバッグ」を押すと該当コードが黄色くなりますので
その状態でマウスを当てるとおそらくCells(i,6)にあてたとき「型が一致しません」
iにあてたとき整数でない何かが表示されると思います。

もしそうであるなら、たとえば次のようにして確実にiに整数が入るようにするとよいでしょう。

For i = Cells(Rows.Count, 6).End(xlUp).End(xlUp).Row To Cells(Rows.Count, 6).End(xlUp).Row
    a_row = WorksheetFunction.Match(Cells(i, 6), [シートA!A:A], 0)
Next

Answer 2

数値は拾えていますか？
シートの指定がしていないように見えます。

a_row = WorksheetFunction.Match(WorkSheets("B").Cells(i, 6), WorkSheets("A").Columns("A"), 0)

では、どうでしょうか？

Comments

[Kruth]

返信が遅くなり申し訳ございません。
記述していないんですが、本コードではシート指定をしております。

見た目上は同じ見え方なのに一致しないパターンとかってあるんでしょうか？