Настройка цикла в Excel VBA для многократного суммирования определенного количества строк

Question

У меня есть лист Excel, подобный этому, и я хочу суммировать стоимость каждой страны, писать и хранить перед каждой страной в столбце C, это означает, что у меня должно быть одинаковое количество перед каждой страной. Я должен сделать это во всем мире. Может кто-нибудь помочь мне в этом, используя VBA из Excel?

Answer 1

Sub AddTotals()

    Set sht = ThisWorkbook.ActiveSheet
    Set rg = sht.Range("C1")
    n = rg.CurrentRegion.Rows.Count
    rg.Resize(n, 1).Value = "=SUMIF(A:A,A1,B:B)"

End Sub

Answer 2

в столбце C:

=SUMIF(A:A,A1,B:B)