每周从vba栏更改总数

更新：有一个公式的新问题，不能完全得到它的工作，因为公式中的文本，公式（如从Excel中取）应该是，

=IF(D2<=0,"No Sales Price",E2/D2) 

我尝试了尽可能多的组合，但是“不销售价格”导致了引号的问题。 我目前的代码是

 For i = 2 To LastRowG Range("Q" & i).Formula = "=IF(D" & i & "<=0," & "(No Sales Price)", & "(E" & i & "/D" & i & "))" Next i 

环顾四周，却看不出任何解决问题的办法，任何启蒙都会得到最大的赞赏

编辑：这是通过插入以下行来解决的;

 For i = 2 To LastRowG Range("Q" & i).Formula = "=IF(D" & i & "<=0," & Chr(34) & "No Sales Price" & Chr(34) & "," & "E" & i & "/" & "D" & i & ")" Next i 

Chr（34）插入ASCII编码，这个编号恰好就是“。程序不会将它读入引号中，而是继续正确地读取这行代码，但是将”no销售价格“在公式中正确。

它将按照公式的意图输出该行，并且Chr（34）就像是在没有不可避免的“预期结束语句”错误的情况下写入“”无销售价格“”

Answer 1

我所build议的会导致这样的事情：

 LastRow = Cells(Rows.Count, "C").End(xlUp).Row Cells(LastRow + 1, 3).Formula = "=SUM(C1:C" & LastRow & ")" 

额外1

是否可以使用此公式在左边单元格中input单词Total？

 Range("B" & LastRow + 1) = "Total" 

额外2

还有一个就是要推我的运气，那么如何将公式一直写到最后一个单元格的列中呢？ =G2*57.5 copied until the last row in I

 LastRowG = Cells(Rows.Count, "G").End(xlUp).Row For i = 2 To LastRowG Range("I" & i).Value = "=G" & i & "*57.5" Next i