B2输入公式:
=IF(A2="","",ROW(A1)-MAX(IF($A$1:A1<>"",ROW($A$1:A1))))
摁键盘上的 shift+ctrl+回车 三组合键结束公式的输入,再将B2公式向下复制
C2输入公式:
=max(B:B) 结果就是了。
假设你这列在A列,
在B2输入=IF(A2<>"","",IF(A1<>"",1,IF(AND(A1="",B1<>""),B1+1,"")))
在C2输入=MAX(B:B)
则,C2就是结果。
设此为A列,插入一列B列,
在B1中输入公式: = if(len(A1)>0,-1,0)
在B2中输入公式: = if(len(A2)>0,-1,B1+1)
拖动 B2 ,向下复制。
在C1中输入:=max(B:B)+1
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