Excel使用vbTextCompare在单元格中循环来分配类别

我有一个电子表格，每行包含一个汇总列（K列）。 我需要匹配概要列中的某些单词，以便在新列（第V列）中分配类别名称。

我试着用一个正常的excel来做这个事情。如果声明但是我已经find了一个限制。 所以现在我试图使用下面的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！ 回。 如果我改变了

范围（“V”＆V_End_Of_Table）.Value

至

MSGBOX

它会返回正确的string。

Answer 1

像这样的兄弟：

 For Each cell In Range("K2:K" & V_End_Of_Table) If InStr(1, cell.Value, "Nationalities", vbTextCompare) > 0 Then Range("V" & cell.Row).Value = "Nationalities" Else Range("V" & cell.Row).Value = "No Match Found" End If Next 

而不是InStr你可以使用StrComp函数来比较2个单词