VBA excel:如何将字符串数组与字符串进行比较?

时间:2016-07-08 12:40:12

标签: excel vba excel-vba

我有一个脚本,它获取单元格的内容,并将单元格的前2个字符放入字符串数组中。我需要稍后将该字符串数组与字符串进行比较,但我似乎无法使其工作。这就是我所拥有的:

Sub runTheMethod(ByRef params)

 'do stuff with params(0)
 params(1) = "Return any value"

End Sub

现在,我试过了:

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

此时我很丢失。欢迎任何建议!

编辑:添加整个功能,直到我收到'类型不匹配'

2 个答案:

答案 0 :(得分:3)

你可以使用Join(charArray, "") - 没有&#34;&#34;它将元素与空间连接起来,因此您最初尝试的结果是&#34; b&#34;

答案 1 :(得分:0)

首先,你真的需要澄清你正在做什么。你说以后你需要检查字符串中的内容。如果是这种情况,那么你不需要一个数组,你只需要另一个字符串......

git fetch origin master
git reset --hard origin/master

稍后您可以使用Dim chars As String chars = Left$(cellToTest, 2) 函数更简单地测试,就像这样...

InStr

如果要将其转换为电子表格中的函数,可以在单元格中使用以下公式作为公式...

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

这里有一个我的意思的小屏幕截图...

Formula usage