多维数组的求和并与现有数据对比

mercy1218

想要求每一列（月）的和，然后把结果按顺序填写到sheet2的b15到b26单元格中。然后分别与b1到b12的数据进行对比，如果有差的话，则把差额加到sheet1对应月份的最后一个非空数值上。也就是春花1月的5000要减去500变成4500，白白3月的2000要加500，变成2500.

谢谢了。

LIUZHU

B1到B12的数据就给了3个月，12个月没给全，怎么搞？

mercy1218

LIUZHU 发表于 2024-6-17 16:43
B1到B12的数据就给了3个月，12个月没给全，怎么搞？

没数据的就不运行。我就是举个例子，具体到这个表可以把sheet1里4到12月的数都删了

quqiyuan

参与一下，供参考。。。


结果OK

quqiyuan

代码如下。。。。
Sub test()
    arr = Sheet1.UsedRange
    crr = Sheet2.[a1].CurrentRegion
    Dim brr(1 To 12)
    For j = 2 To UBound(arr, 2)
        n = n + 1
        For i = 3 To UBound(arr)
            brr(n) = brr(n) + arr(i, j)
        Next
    Next
    Sheet2.[b15].Resize(12) = Application.Transpose(brr)
    For i = 1 To 12
        If crr(i, 2) <> "" Then brr(i) = crr(i, 2) - brr(i) Else brr(i) = Empty
    Next
    Sheet2.[c15].Resize(12) = Application.Transpose(brr)
    For k = 1 To 12
        If brr(k) <> "" Then
            For i = UBound(arr) To 3 Step -1
                If arr(i, k + 1) <> "" Then Sheet1.Cells(i, k + 1) = Sheet1.Cells(i, k + 1) + brr(k): Exit For
            Next
        End If
    Next
    Beep
End Sub

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, br, j&, r&, vTemp
   
    ar = Worksheets(1).[A1].CurrentRegion.Value
    ReDim br(1 To UBound(ar, 2) - 1, 1)
   
    For j = 2 To UBound(ar, 2)
        vTemp = WorksheetFunction.Sum(Application.Index(ar, , j)) - ar(2, j)
        r = r + 1
        br(r, 0) = ar(2, j)
        br(r, 1) = vTemp
        
    Next j
   
    Cells.Clear
    [A1].Resize(r, 2) = br
    Beep
End Sub

gwjkkkkk

....................