如何在vba代码中处理区分大小写

我有一个代码，在Excel中search一个文本列的学生名称。

我使用的代码是：

Private Sub CommandButton1_Click() row_number = 0 count_of_string = 0 search_string = Sheets("Names").Range("C3") Do DoEvents row_number = row_number + 1 item_in_review = Sheets("Names").Range("A" & row_number) If InStr(item_in_review, search_string) > 0 Then count_of_string = count_of_string + 1 End If Loop Until item_in_review = "" MsgBox (search_string & " occurred: " & count_of_string & " times.") End Sub 

这工作正常。 我遇到的问题是，如果用户在search字段中input任何名称的情况下更改大小写，代码不会“看到”名称。 例如，如果用户在列中find“标记”而不是“标记”，则代码错误地表示它不存在。 我该如何重新写这个呢？

Answer 1

您可以使用UCase Function – > http://www.techonthenet.com/excel/formulas/ucase.php

尝试这个：

 If InStr(UCase(item_in_review), UCase(search_string)) > 0 Then count_of_string = count_of_string + 1 End If