匹配列中的字符串並對相應的行求和

Question

我有這個問題，我試圖用 VBA 解決。

桌子

工作簿中只有一張工作表。

預期解決方案

我正在嘗試對A 列執行字符串搜索，如果它是 A75X （其中 X 是任意數字），我想在列 C下總結相應的 A75X 值，並將 A75 列 C 替換為空白價值。

預計 Output

Answer 1

在新的 VBA 模塊中試試這個：

Sub CalculateFinancials()
        Dim aCells As Range
        Dim aCell As Range
        Dim cellValue As String
        Dim foreignCurrency As Double
        Dim nationalCurrency As Double

        Set aCells = Range("A:A")

        For Each aCell In aCells
            cellValue = aCell.Value
            If InStr(cellValue, "A75") <> 0  And cellValue <> "A75" Then
                foreignCurrency = foreignCurrency + Cells(aCell.Row, 3)
            End If
            If InStr(cellValue, "A71") <> 0  And cellValue <> "A71" Then
                nationalCurrency = nationalCurrency + Cells(aCell.Row, 3)
            End If
        Next aCell
        Cells(13, 3) = foreignCurrency
        Cells(4, 3) = nationalCurrency
    End Sub