发布网友 发布时间:2022-04-23 03:42
共4个回答
热心网友 时间:2023-10-12 03:13
用宏代码要简单且方便:假设有100行数据
Sub 间隔()
Dim tj(100)
x = 1
For i = 1 To 100
If Cells(i, 1) <> "" Then
tj(x) = i: x = x + 1
End If
Next i
For j = 1 To x - 2
Cells(j, 3) = tj(j + 1) - tj(j)
Next j
End Sub
-------------------------------------------------
否则操作稍微复杂些,如下:
1、在B1输入:=IF(A1<>"",ROW(),"") 意思是若前一单元格不为空,那么取得此行行号
2、向下拖动公式到需要的地方
3、选中B列,按F5,弹出“定位”对话框,点击“定位条件”按钮,弹出的对话框中选择“公式”,其下的4个复选框,只保留“数字”项有勾,其余去掉勾,确定。
4、右击定位后选中的单元格,弹出的右键菜单中选“复制”,选中C1,右键粘贴。
5、在D1输入:=C2-C1,向下拖动或双击选择框右下角的小黑块(填充柄),即能达到你要的效果
热心网友 时间:2023-10-12 03:14
1. 同时选中C1:C8区域;
2. 按F2,输入下面的公式,按Ctrl+Shift+Enter结束即可~~~
=FREQUENCY(ROW(1:18),IF(A1:A18,ROW(1:18)))
(数组公式)
热心网友 时间:2023-10-12 03:14
仅作参考啊!
感觉使用公式很难实现你的要求,但使用VBScrip应该可以。
从A0开始查找A列中的非空单元格,找到一个时,则记录单元格序号,然后与上一次非空的单元格序号向减,再加1,将结果放到C列中(按顺序放入即可)。
热心网友 时间:2023-10-12 03:15
=COUNTIF(单元格区域,"")