在Excel 2010中键入不匹配错误

Question

我在Excel 2010中通过A列中的文本值运行此宏。错误消息为＆＃34; Type Mismatch＆＃34;。它是编码问题还是与Excel 2010相关？因为它在Excel 2003中运行良好。

宏识别常见字符串并提供带有单词和计数的输出。

Sub Common_words()
    Dim vArray As Variant
    Dim lLoop As Long
    Dim rCell As Range

    With CreateObject("Scripting.Dictionary")
        For Each rCell In Range("A1", Cells(Rows.Count, "A").End(xlUp))
            vArray = Split(rCell.Value, " ")
            For lLoop = LBound(vArray) To UBound(vArray)
                If Not .exists(vArray(lLoop)) Then
                    .Add vArray(lLoop), 1
                Else
                    .Item(vArray(lLoop)) = .Item(vArray(lLoop)) + 1
                End If
            Next lLoop
        Next rCell
        Range("B1").Resize(.Count).Value = Application.Transpose(.keys)
        Range("C1").Resize(.Count).Value = Application.Transpose(.items)
    End With
End Sub

Answer 1

添加对Microsoft Scripting Runtime的引用。