Question

我正在寻找一个函数，该函数将采用总周值，将右边的单元格数量计算为等于总周数值，并提供这些单元格的总和。

例如，单元格A2的值为3.我想要一个能够向右计数3个单元格的函数（B2，C2，D2），并将这3个单元格的值加到单元格E2中。

Answer 1

在单元格E2中，使用公式=SUM(OFFSET($B$2,0,0,1,A2))。

Answer 2

试试这个解决方案。它会看Selection中的值并循环遍历它。对于每个值，它将遍历范围中的下一个单元格并发送该行的总和。最后它将消息所有单元格的总和。

要自定义，请更新弹出消息的代码。

使用Option Explicit来防止因未声明而导致的运行时错误变量

Option Explicit
Sub SumOfWeeks()
    Dim cell As Object
    Dim count As Integer
    Dim addr As String
    Dim rowSum As Integer
    Dim i As Integer
    Dim totalSum As Integer

    For Each cell In Selection
        count = cell.Value
        rowSum = 0
        If IsNumeric(count) Then
            For i = 1 To count
               rowSum = rowSum + cell.Offset(0, i).Value
            Next i
            totalSum = totalSum + rowSum
            MsgBox "Sum of Row is: " & rowSum
        End If
    Next cell
    MsgBox "Total Sum is: " & totalSum
End Sub

另一种选择可能是创建一个范围字符串并找到该范围的SUM。将此代码视为一个开头而不是复制粘贴解决方案。

Excel函数对选定单元格中的值求和

2 个答案: