VBA是否可以继续添加单元格，直到添加的单元格的总和大于另一个单元格值？

Sub AddCellsUntilSumExceedsValue()
    Dim targetCell As Range
    Dim sumRange As Range
    Dim sumValue As Double
    
    ' 设置目标单元格和求和范围
    Set targetCell = Range("A1")
    Set sumRange = Range("B1:B10")
    sumValue = 100
    
    ' 初始化变量
    Dim currentSum As Double
    Dim cell As Range
    currentSum = 0
    
    ' 循环遍历求和范围内的单元格
    For Each cell In sumRange
        ' 将当前单元格的值添加到总和
        currentSum = currentSum + cell.Value
        
        ' 判断总和是否大于目标值
        If currentSum > sumValue Then
            Exit For ' 如果总和大于目标值，则退出循环
        End If
    Next cell
    
    ' 将结果输出到目标单元格
    targetCell.Value = currentSum
End Sub