VBA excel：如何比较string数组与string？

我有一个脚本，它接受一个单元格的内容，并把单元格的前两个字符放到一个string数组中。 我需要稍后比较该string数组string，但我似乎无法得到的工作。 这是我有：

For i = 2 To 600 colStr = Sheets("smartlist").Cells(i, "A").Value If colStr <> "" Then ReDim charArray(Len(colStr) - 1) For j = 1 To Len(colStr) charArray(j - 1) = Mid$(colStr, j, 1) Next strArray = LCase(charArray(0)) & LCase(charArray(1)) If CStr(Join(strArray)) = CStr(Join(pwArray)) Then 

现在，我试过了：

 If charArray = "ab" If Join(charArray) = "ab" If CStr(Join(charArray)) = "ab" 

我现在很迷茫 欢迎大家提出意见！

编辑：添加整个function，直到我得到“types不匹配”

Answer 1

首先，你真的需要澄清你在做什么。 你以后说，你需要检查string中的内容。 如果是这样的话，那么你不需要一个数组，你只需要另一个string…

 Dim chars As String chars = Left$(cellToTest, 2) 

稍后，您可以使用InStr函数更简单地进行testing，例如…

 Dim loc As Integer loc = Instr(colStr, chars) If loc > 0 Then ... 

如果您想在电子表格中将其转换为函数，则可以在单元格中使用以下内容作为公式…

 =LEFT(A1, 2) =SEARCH(A3, A1) 

这是我的意思是一个小屏幕截图

Answer 2

你可以使用Join(charArray, "") – 没有“”它与空间的元素，所以你最初尝试的结果是“ab”