有没有办法将公式应用于一行中的每个单元格而不是对该行求和？

Question

我目前正在尝试创建一个 VBA 程序，根据公式和总和计算学生的最终分数。

我使用的公式是：(studentsmark * percent)/max

这个公式需要应用到每个学生的每个单元格。因此，例如安迪学生，我会将 A1（assignemnt 1）中的这个公式一直应用到期末考试，然后将每个方程式相加并将结果输出到最终标记单元格中。

这就是我开始的内容，但是当我运行它时，FinalMark 下的所有单元格都显示#NAME?

    Option Explicit

    Sub grades()
    
    Dim row as Integer
    
       For row = 9 To 34

       Cells(row,18).Value = "Sum(row)"

       Next row

    End Sub

关于如何修复每行中的 error/sum 单元格并将其输出到 FinalMark 单元格的任何想法？

感谢任何帮助或建议！

Answer 1

您可以通过简单的 Sum() 公式来完成，例如 R9 单元格公式将是 =Sum(B9:Q9) 然后向下拖动到最后一行。如果您的选择是 VBA 然后尝试下面的 sub.

Sub grades()
Dim row As Integer

   For row = 9 To 34
    Cells(row, 18).Formula = "=Sum(B" & row & ":Q" & row & ")"
   Next row

End Sub

有没有办法将公式应用于一行中的每个单元格而不是对该行求和？

Is there a way to apply a formula to each cell in a row than sum that row?

excel

vba

rows