（横一行にある）複数のセル同士の完全一致検索する方法

Question

一つの値の完全一致検索は、FindメソッドやStrComp関数で何とかできたのですが、複数のセルの完全一致が自分には難しくて出来ずにいます。配列を使えばいいのだろうかと思うのですがArrayについてきちんと理解できておらず、下記コードを実行するとIf myArray(1) = myArray(2) Thenで「型が一致しません」とエラーがでてしまいます。（たぶん、体をなしていないと思います）
改善方法または別に方法がございましたら教えていただきたく思います。どうぞよろしくお願いいたします。

Sub SearchArray()
    Dim ws(1 to 2) As Worksheet, myArray(1 to 2) As Variant _
        i As long, j As long, k As long

    Set ws(1) = Worksheets("シート1")
    Set ws(2) = Worksheets("シート2")
    
    '検索対象（シート1のA～E）を指定
    With ws(1)
        i = 1
        j = .Cells(Rows.Count, 1).End(xlUp).Row
        myArray(1) = Array(.Range("A" & i), .Range("B" & i), .Range("C" & i), .Range("D" & i), .Range("E" & i))
    End With

    '検索にかける値（シート2の最終行のD～H）を取得
    With ws(2)
        k = .Cells(Rows.Count, 1).End(xlUp).Row
        myArray(2) = Array(.Range("D" & k), .Range("E" & k), .Range("F" & k), .Range("G" & k), .Range("H" & k))
    End With
    
    '検索を実行して一致する行を取得
    For i = 1 To j
        If myArray(1) =  myArray(2) Then  myArray(1).EntireRow.Select
    Next i
End Sub

Answer 1

なんでわざわざ、シートを配列にいれてるのですか？
なんでわざわざ、セルの配列を、更に配列にいれてるのですか？

プロパティウィンドウで確認しやすいですか？
デバッグしやすいですか？

変数を複数書くのが面倒だから１つにまとめているだけなら、
即刻やめた方がいいでしょう。
現在作っているあなたが混乱しているんですから、
未来のあなたが見返した時にはもっと混乱するでしょうから。

で、根本の原因は以上ですが、
直接の原因は Ｆｏｒ を正しくできていないからです。

For i = 1 to j って、
i を 1 から j まで順番に処理させたい、という意味になります。
しかし、j ってなんですか？
そして、For ～ Next の中に i がいませんが、どういう事でしょうか？？

変数名は日本語でも構いませんので、分かりやすい名前を付けるべきです。
なぜって意味が分からなくなって、ちゃんとした処理が書けないリスクを高くするだけですから。

という訳で、てんでバラバラなコードなので、
もう少し本を読むなり、田中さんのHPを読むなりして
出直してください。

Comments

[miniryu]

ご指摘ありがとうございます。とても勉強になりました。また質問することがあると思います。そのときはまたどうぞよろしくお願いします。

[ExcelVBAer]

またいつでもどうぞ。

[miniryu]

見返すと、確かに混乱してますね。。配列の宣言もすべて見直して修正させていただきます。ありがとうございました。