Question

请高手帮忙做一个excel求和的宏文件

实现功能：1、用sum求和函数；2、累加下面的单元格，出现空值时停止累加；3单元格运行宏文件后显示公式。

Answer 1

Sub Macro1()
 Dim i As Long
 i = 1
 While ActiveCell.Offset(i, 0) <> "": i = 配友备i + 1: Wend
 ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[" & 培毁i - 1 & 告迅"]C)"
End Sub

下面全空的话，会公式循环的。你自己确定是否加if语句。

Answer 2

Sub 求和碧橡()
Dim i As Long
Dim x
i = 1
Do While Cells(i, 1) <> "芹慧岩"
x = Cells(i, 1) + x
i = i + 1
Loop
Range("C2") = x
Range("C4"嫌御) = "sum(A1:A" & i - 1 & ")"
End Sub