Question

我想知道如何通过修复列来对范围求和，然后将值保存到数组中。

A  B  C  D  E  F  G
1  -  10 -  4  -  1
2  -  98 -  1  -  2
3  -  5  -  9  -  7
4  -  80 -  54 -  10

我想做的是：

对A列中的值求和 - ＆gt;将总和放入sumArray（）
将A列到C的值相加 - ＆gt;将总和放入sumArray
将A列中的值相加到E - ＆gt;将总和放入sumArray
将A列到G的值相加 - >将总和放入sumArray

基本上，列和行的维度是动态的。我的问题是我该怎么做？

我希望我能正确解释自己

先谢谢你们。

Answer 1

Sub summarize()
Dim i As Integer
Dim maxCol, maxRow As Integer
maxCol = 6
maxRow = 7
Dim ws As Worksheet
Set ws = ActiveWorkbook.ActiveSheet

Dim sumArray(100) As Integer
For i = 1 To maxCol
    maxRow = ws.Cells(Rows.Count, i).End(xlUp).Row
    sumArray(i) = CInt(Application.Sum(ws.Range(ws.Cells(1, 1), ws.Cells(maxRow, i))))
    Debug.Print sumArray(i)
Next i
End Sub

Answer 2

你可以用这个：

Sub DoSumArray()
    Dim icol As Long

    With ActiveSheet.UsedRange
        ReDim SumArray(1 To .columns.Count / 2 + 1)
        For icol = 1 To .columns.Count Step 2
            SumArray(icol \ 2 + 1) = WorksheetFunction.SUM(.columns(icol))
        Next
    End With
End Sub

Sum变量通过固定第一列来调整VBA

2 个答案: