string - 查看是否存在某个字符

Question

我想遍历一定数量的单元格，看看它们是否包含字母表中的任何字符。我创建了包含所有小写和大写字母的字符串字母表。
单元格中应开始包含信息的点位于第 4 行第 1 列。程序应从先前声明为 ClassList 的工作表中搜索这些单元格。它只会搜索 40 个单元格。

For a = 4 to 44
    For b = 1 to Len(alphabet)
         If ClassList.ActiveSheet.Cells(a,2) = Mid(alphabet, b, 1) then
              NoStudents = NoStudents + 1
              Exit For
         End If
    Next b
Next a 

我知道 ClassList.ActiveSheet.Cells(a,2)工作正常，因为它已在其他部分正常工作。问题是 If 语句由于某种原因永远不会正确，即使我可以看到单元格中的第一个字符清楚地在字母表中!

Answer 1

您可以使用 Like无需循环字母即可查找字母:

For a = 4 To 44
    If ClassList.ActiveSheet.Cells(a, 2) Like "*[A-Za-z]*" Then
        NoStudents = NoStudents + 1
    End If
Next a