配列とVlookupを使った処理

Question

前回の質問の続きになります。
Sheet1A列にある文字列データとSheet2B列の文字列データを比較し、
Sheet2A列に合致率を％でそれぞれ出していきます。

最も％が高い文字列データで、合致率70％以上であればSheet2C列の対応する別言語のデータをSheet1のB列に引っ張ってくるようにしたいと思います。

最初、％を出した後、Sortで降順にして、一番上にくるものに対して70％以上かを確認しようとしたのですが、処理が遅くなる、かつフリーズしてしまうので、Vlookupを使うことにしました。
しかし、存在するはずのデータをVlookupで拾うことができません。

範囲指定が間違っているのかもしれません。お力添え頂ければ幸いです。
（VlookupにもTable1やTable2を使いたかったのですが、うまく使いこなせず、Cellsで記述してます...。）

出てきたエラーは画像の通りです↓

Variant型って何でも入るわけではないのでしょうか？

Sub 検索()


    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim rng1 As Range, rng2 As Range
    Dim Table1 As Variant, Table2 As Variant
    Dim Endrow As Integer, Finalrow As Integer
    Dim i As Long, k As Double, n As Long
    Dim cnt As Integer, str As String

    Set ws1 = Sheets("Sheet1")
    Set ws2 = Sheets("Sheet2")

    With ws1
        Endrow = .Cells(.Rows.Count, 1).End(xlUp).Row 'ws1最終セル
        Set rng1 = .Range(.Cells(2, 1), .Cells(Endrow, 1)) 'ws1のデータ範囲を配列化
        Table1 = rng1.Value 'ws1のデータ範囲を配列化
    End With

    With ws2
        .Columns(1).Insert Shift:=xlShiftToRight
        .Columns(1).Style = "Percent"
        Finalrow = .Cells(.Rows.Count, 2).End(xlUp).Row
        Set rng2 = .Range(.Cells(3, 1), .Cells(Finalrow, 2))
        Table2 = rng2.Value 'ws2のデータを配列化
    End With
    
Dim kinji As Double
With Application.WorksheetFunction
ws2.Cells(1, 1).Value = .Max(rng2)

kinji = ws2.Cells(1, 1).Value
On Error Resume Next
If kinji >= 0.7 Then
ws1.Cells(1, 1).Value = .VLookup(Cells(1, 1).Value, rng2, 3, False).Value
End If
End With
            
 '配列化したデータをシートに戻す
 rng1.Value = Table1
 rng2.Value = Table2
            


End Sub

Answer 1

ご回答頂いた方には大変申し訳ありませんが、ちょっと荒れそうなので、この辺で切らせて頂きます。ありがとうございました。

Answer 2

どこの行でエラーが出たのかもわからんし、
試してみるデータもないので、確認しようがありません。

よくわからんけど、こんな感じ？

Sub test()
    Dim vrtOld As Variant
    Dim vrtNew As Variant
    Dim vrtResults() As Variant
    Dim Rng As Range
    Dim n As Double
    Dim ix As Long
    
    With Worksheets("Sheet1")
        With .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
            vrtOld = .Value
            vrtNew = Worksheets("Sheet2").Range(.Address)
        End With
    End With
    ReDim vrtResults(1 To UBound(vrtNew, 1), 1 To 1)
    
    For ix = LBound(vrtOld, 1) To UBound(vrtOld, 1)
        vrtResults(ix) = 文字列の一致率計算(vrtOld(ix), vrtNew(ix))
    Next
    
    With Worksheets("Sheet2").Cells(1).Resize(UBound(vrtOld, 1), 2)
        .ClearContents
        .Columns(1).Style = "Percent"
        .Columns(1).Value = vrtResults
        .Columns(2).Value = vrtNew
        Set Rng = .Cells
    End With
    
    With WorksheetFunction
        n = .Max(Rng.Columns(1))
        Rng(.Match(n, Rng.Columns(1), 0), 1).Select
    End With
    
    MsgBox n
End Sub

無意味な変数が多すぎ＾＾；

Answer 3

とりあえず、３列目を使うなら３列分のデータを格納する必要があると思います。

Set rng2 = .Range(.Cells(3, 1), .Cells(Finalrow, 3))

Vlookupは左端列がSORTされている必要があります。代わりにIndex+Matchにしてみるのはどうでしょう。

 ws1.Cells(1, 1).Value = .Index(rng2, .Match(ws2.Cells(1, 1).Value, rng2.Columns(1), False), 3)

Comments

[退会済みユーザー]

ご回答ありがとうございます。修正しました。
配列から最大値の％の場所を探し出し、それに紐づく２つ隣の値（C列の値）を取得したいのですが、
うまくいきません...

[退会済みユーザー]

ありがとうございます。試してみたのですが、フリーズしてしまいました...。
調べてみたところ、配列内を繰り返し検索する場合、dictionaryとして配列を扱う方法があるようです。
ちょっと勉強してみます。
追記：配列内で比較をして最大値の％を取り出す作戦にしました。
jinojiさんのおかげで、配列とセルの違いが少し分かってきました。

[jinoji]

Dim x, r
For i = 1 To UBound(table2, 1)
If table2(i, 1) > x Then
x = table2(i, 1)
r = i
End If
Next
If x >= 0.7 Then table1(1, 1) = table2(r, 3)
とかですかね。

[退会済みユーザー]

ありがとうございます。頂いたコードを試してみます。この度は本当に助かりました^^これからも精進します。申し訳ありませんが、今回はここまでで切らせて頂ければ幸いです。