结余计算时提示型态不合

yancjm

附件中档案资料大于65536时提示形态不合，无法运行，由于VBA不太精，请大家协助看看问题出在哪
Sub tta()
Dim d, arr, i
Sheet1.Activate
    arr = Range("a3", [a1048576].End(3).Offset(, 7))
    Set d = CreateObject("scripting.dictionary")
    For i = 1 To UBound(arr)
        d(arr(i, 4)) = d(arr(i, 4)) + arr(i, 6) - arr(i, 7)
        arr(i, 8) = d(arr(i, 4))
    Next
    [h3].Resize(i - 1, 1) = Application.Index(arr, 0, 8)
    Set d = Nothing
End Sub

ykcbf1100

这样改一下试试

Application.Index应该有限制。

ykcbf1100

这样改下试试，最后一句应该是有限制的。

yancjm

ykcbf1100 发表于 2023-4-20 17:20
这样改下试试，最后一句应该是有限制的。

还是提示型态不合，而且还填入很多#N/A

gwjkkkkk

Application.Index(arr, 0, 8)内置函数限制
可改成
Sub tta()
Dim d, arr, i
Sheet1.Activate
    arr = Range("a3", [a1048576].End(3).Offset(, 8))
    Set d = CreateObject("scripting.dictionary")
    For i = 1 To UBound(arr)
        d(arr(i, 4)) = d(arr(i, 4)) + arr(i, 6) - arr(i, 7)
        arr(i, 8) = d(arr(i, 4))
    Next
   
    [A3].Resize(UBound(arr), 8) = arr
   

    Set d = Nothing
End Sub