Question

在我的电子表格中，我想计算从B1到F1的总值并将该值保持为G1。我想为每一行计算这个，直到最后一行。如果用户单击命令按钮，它将计算该值并将该值保存到G列

例如：

Sl.   A     B    C   D   E   F  G
1.    5     2    1   3   0   1  12
2.    1     0    4   1   2   9  17

这是我的代码，只能计算第一行：

Private Sub Sum_Click()
Dim ShowTotal As Integer
ShowTotal = Range("B1") + Range("F1")
Worksheets("Sheet1").Range("G1").Value = ShowTotal
End Sub

Answer 1

Private Sub Sum_Click()
    Dim LastRow as Long
    Lastrow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Range("G1:G" & LastRow).Formula = "=sum(B1:F1)"
End Sub

LastRow：将检查工作表中最后使用的行

范围（＆＃34; G1：G＆＃34;＆amp; LastRow）。公式=＆＃34; =总和（B1：F1）＆＃34;将适当的公式放在G列的所有必需单元格中。

如何对每一行进行相同的计算并将计算保留在VBA中的那一行？

1 个答案: