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変数に格納されます。このコードには、デバッグとエラー処理が必要になる場合があります