vba - Excel-VBA命名范围行总和

我有以下代码

 For i = 1 To DepRng.Rows.Count
    For j = 1 To DepRng.Columns.Count
         DepRng.Cells(i, j) = Application.Sum(KidsRng.Row(i)) //Does not work
    Next j
 Next i

尽管我知道是错误的，但我不知道如何将其存储在整个DepRng.Cells(i, j)中的总和有任何帮助吗？

最佳答案

以下代码可以正常工作。

也许您应该将其与您的相比较:

Sub a()

Dim DepRng As Range
Dim kidsrng As Range
Set DepRng = Range("B1:B2")
Set kidsrng = Range("C1:F2")

 For i = 1 To DepRng.Rows.Count
      DepRng.Cells(i, 1) = Application.Sum(kidsrng.Rows(i))
 Next i

End Sub

只需用数字填充范围C1:F2，每行的总和将在执行宏后显示在B1:B2中。

关于vba - Excel-VBA命名范围行总和，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/4200975/