有没有一种方法可以对行中的每个单元格应用公式，而不是对该行求和？

Question

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

我使用的公式是：（学生分数*百分比）/最大值

此公式需要应用于每个学生的每个单元格。因此，举例来说，学生安迪（Andy），我会将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

关于如何解决此错误/求和每一行的单元格并将其输出到FinalMark单元格的任何想法？

感谢任何帮助或建议！

Answer 1

您可以通过简单的Sum()公式执行此操作，例如R9单元格公式将为=Sum(B9:Q9)，然后向下拖动直到最后一行。如果您选择的是VBA，请尝试以下子项。

Sub grades()
Dim row As Integer

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

End Sub