假设 这一列的范围 为 A2:A100
那么在任意空单元格内输入公式如下:
=sum(A2:A100)
sum 是会自动去除空格的。 公式 如此 请根据需求修改。
有无空值一样,都用求和
仅仅是求和的话,和平时都一样的
SUM函数就可以啊?
Sub Macro1()
'
' Macro1 Macro
' 宏由 bandaojun 录制,时间: 2010-7-26
Dim sl(1 To 101) As Variant
a = 0
For i = 1 To 100
If Cells(i, 1) = "" Then
a = a + 1
sl(i) = a
Else
a = 0
End If
Next
mmax = 0
For i = 1 To 100
If sl(i) > mmax Then
mmax = sl(i)
End If
Next
Cells(2, 2) = mmax
'
End Sub
或者
假设你这列在A列,
在B2输入=IF(A2<>"","",IF(A1<>"",1,IF(AND(A1="",B1<>""),B1+1,"")))
在C2输入=MAX(B:B)
则,C2就是结果。