excel - 在列中查找一个值并总结下一个值

Question

我想搜索显示“总计”的列，并且需要开始在“总计”列旁边添加值

文本“total”在“o”列中，值在 p、q、r、s 列中。

我需要将这些值总结为 1265+1789+2099.25 ...并在任何单元格中显示输出总和。

请帮忙

Answer 1

所以这将是这样的：

Dim r As Long
Dim c As Long
Dim tot As Double
Dim fnd As Boolean
Dim cellTx As String

tot = 0
fnd = False

For r = 1 To ActiveSheet.UsedRange.Rows.Count
    For c = 1 To ActiveSheet.UsedRange.Columns.Count
        cellTx = ActiveSheet.UsedRange(r, c).Value
        If fnd Then
            If IsNumeric(cellTx) Then tot = tot + Val(cellTx)
        Else
            If cellTx = "total" Then fnd = True
        End If
    Next
    If fnd Then Exit For
Next

然后总数将存储在tot变量中。此代码可能需要一些调试和错误处理