一段代码报错

hhxq001

源代码是这样的，没有报错：
            Dim i%, aa%, arr, brr
            aa = .Cells(Rows.Count, "b").End(xlUp).Row
            arr = .Range("A2:k" & aa)
            .Columns("d:e").Delete '然后删除新表银行卡所属省、市等列
            ReDim brr(1 To UBound(arr), 1 To 9)
            For i = 1 To UBound(arr)
                brr(i, 1) = arr(i, 1) '账户a
                brr(i, 2) = arr(i, 2) '账号
                brr(i, 3) = arr(i, 3) & arr(i, 4) & arr(i, 5) & "分行"     '银行简称+省份+城市
                brr(i, 4) = arr(i, 6) '金额
                brr(i, 5) = arr(i, 7) '摘要e列
                brr(i, 6) = arr(i, 8) '单位
                brr(i, 7) = arr(i, 9) '助学类型
                brr(i, 8) = arr(i, 10) '电话
                brr(i, 9) = i '序号
            Next
           .Range("a2").Resize(UBound(brr), 9) = brr '将brr数值内容重新写回新表

改成这样，报错：提示要求对象，怎么解决

            Dim i%, aa%, arr, brr
            aa = .Cells(Rows.Count, "b").End(xlUp).Row
            arr = .Range("A2:k" & aa) '将新表内容装入数组
            .Columns("d:e").Delete '删除新表银行卡所属省、市等列
            ReDim brr(1 To UBound(arr), 1 To 9)
            For i = 1 To UBound(arr)
                brr(i, 1) = arr(i, 1) '账户a
                brr(i, 2) = arr(i, 2) '账号
                If Not (arr(i, 3).Value Like "*农村*") Then '-----如果银行名称中不包含“农村”，就赋值
                    brr(i, 3) = arr(i, 3) & arr(i, 4) & arr(i, 5) & "分行"     '银行简称+省份+城市
                Else ‘包含农村就直接写入银行简称
                    brr(i, 3) = arr(i, 3)
                End If
                brr(i, 4) = arr(i, 6) '金额
                brr(i, 5) = arr(i, 7) '摘要e列
                brr(i, 6) = arr(i, 8) '单位
                brr(i, 7) = arr(i, 9) '助学类型
                brr(i, 8) = arr(i, 10) '电话
                brr(i, 9) = i '序号
            Next
           .Range("a2").Resize(UBound(brr), 9) = brr '将brr数值内容重新写回新表

liulang0808

arr(i, 3).Value
修改成arr(i, 3)看看

hhxq001

liulang0808 发表于 2024-5-6 11:12
arr(i, 3).Value
修改成arr(i, 3)看看

果然有效，谢谢