vba - vbTextCompareを使用してセルをループしてカテゴリを割り当てるExcel

Question

各行に集計列 (列 K) を含むスプレッドシートがあります。新しい列 (列 V) にカテゴリ名を割り当てるには、概要列の特定の単語を一致させる必要があります。

通常の Excel If ステートメントでこれを実行しようとしましたが、制限があることがわかりました。そこで、次の VBA コードを使用しようとしています。

Public Function getCategory()

V_End_Of_Table = ActiveSheet.UsedRange.Rows.Count 'count the number of rows used'

Dim cell As Range


For Each cell In Range("K2:K" & V_End_Of_Table) 'loop through each row until end of table'


 If InStr(1, cell.Value, "Nationalities", vbTextCompare) > 0 Then
    Range("V" & V_End_Of_Table).Value = "Nationalities"
Else
    Range("V" & V_End_Of_Table).Value = "No Match Found"
End If

Next 'move onto next cell'

End Function

そのため、各行をループして、テキストを照合し、値を割り当てようとしています。現時点では、#VALUE を取得しています。戻ってきた。私が変われば

Range("V" & V_End_Of_Table).値

に

メッセージボックス

正しい文字列を返します。