Excel 在列中找到一个值，然后将下一个值相加

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

文本“总计”在“o”列中，数值在p、q、r、s列中

我需要将这些值加起来为1265+1789+2099.25。。。并在任意单元格中显示输出和

---

请帮助

，这将类似于：

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

变量中。这段代码可能需要一些调试和错误处理

您好，我想找到其中包含值“total”的列，然后从下一行开始添加可用的数字。例如，如果“总计”位于单元格Q1中，我想将下一个单元格R1中的值添加到该行的最后一个单元格中。@user2831590:您的意思是，如果Q1中有总计，您想将R1添加到R99中吗？然后，是否也要添加向前的列？