在Excel VBA中设置循环以重复汇总特定行数

Question

我有这样的excel表格，我想总结每个国家的价值，并且在C列的每个国家的前面书写和存储，这意味着我必须在每个国家面前有相同的金额。我必须在全球范围内这样做。有人可以帮我使用excel的VBA吗？

Answer 1

C列中的

：

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

Answer 2

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