excel，VBA，一列数据范围任意相加的几个数据不超过定值的单元格数据

Sub FindMaxValue()
    Dim maxVal As Double
    Dim maxRow As Long
    Dim sumVal As Double
    Dim currentVal As Double
    Dim i As Long

    maxVal = 0
    maxRow = 0
    sumVal = 0

    ' 获取C列的最后一行
    lastRow = Cells(Rows.Count, 3).End(xlUp).Row

    ' 遍历C列
    For i = 1 To lastRow
        ' 获取当前行C列单元格的数值
        currentVal = Cells(i, 3).Value

        ' 如果当前数值加上之前的求和结果不超过1000
        If currentVal + sumVal <= 1000 Then
            ' 更新求和结果
            sumVal = sumVal + currentVal

            ' 更新最大值和对应的行号
            If sumVal > maxVal Then
                maxVal = sumVal
                maxRow = i
            End If
        Else
            ' 如果超过1000，则重置求和结果为当前数值
            sumVal = currentVal
        End If
    Next i

    ' 将最大值和对应行号分别写入D1和E1单元格
    Range("D1").Value = maxVal
    Range("E1").Value = Cells(maxRow, 1).Value
End Sub