excel - 小计 VBScript

Question

我有一个如下所示的 Excel 电子表格(我将所有 secret 信息设为白色字体，因此请忽略空格)



总列在 d 列或第 4 列。我需要做的是对 d 列中的值进行小计，直到它到达显示“...-TOTAL”的行。我遇到的问题是，在“...-TOTAL”行之后，还有更多行需要小计到“...-TOTAL”，“...”是客户的名字。我已经尝试过下面的代码，但我认为它陷入了无限循环，因为脚本没有运行 5 分钟并结束，它根本没有结束。如果您需要更多信息，请告诉我。谢谢!

Do Until InStr(objExcel.Cells(c,2).Value, "TOTAL")
total = total + objExcel.Cells(e,4).Value
if InStr(objExcel.Cells(c,2).Value, "TOTAL") then 
    objExcel.Cells(c,4).Value = total
    total = 0
end if
Loop

Answer 1

正如我在评论中指出的，您应该使用 For Each在此处循环，以便您可以检查每行第 2 列 (B) 中“总计”的值。就像是:

'Loop through each cell in column B
For Each rngCell in Range("B:B").Cells
    'Check to see if it contains "TOTAL" as part of it's value
    If Instr(rngCell.value, "TOTAL") Then
        'Set the value of the cell 2 columns over (Column D) and exit loop
        rngCell.Offset(,2).value = total
        Exit For
    End If
    'Collect and increment the total
    total = total + rngCell.Offset(,2).value
Next