For i = 2 To UBound(Arr) 提示 类型不匹配

蓝蓝111

编码如下：
Sub Main()

    '---清除历史数据
    Sheets("02-明细汇总").Columns("A:G").Clear

    '--------------科目装入字典备用---------------
    Dim d As Object, arr, strItem As String, ws As Worksheet
    Application.ScreenUpdating = False
    Set d = CreateObject("scripting.dictionary")
    Set ws = ThisWorkbook.Worksheets("01 科目配置")
    arr = ws.Range("A1").CurrentRegion.Value

    Dim i As Integer
    For i = 2 To UBound(arr)
        If arr(i, 3) <> "" Then
            strItem = arr(i, 2) & "->" & arr(i, 3)
        Else
            strItem = arr(i, 2) & "->" & "XXXXXXX"
        End If
        If Not d.exists(arr(i, 1)) Then
            d(arr(i, 1)) = strItem
        Else
            d(arr(i, 1)) = d(arr(i, 1)) & "|" & strItem
        End If


我运行时提示For i = 2 To UBound(arr)  这个类型不匹配，清帮忙修改一下，谢谢

isy007

可以发表看看

microyip

说明A1周边没有数据，所以arr不是一个数组，可以F8逐步调试看看

蓝蓝111

解决了，谢谢