搜索
首页 电脑/网络 软件 办公软件

EXCEL表格按指定条件插入空行问题

我想不用宏,通过函数插入空行把表一转换为表二的样式,包括空行使各班的行数一样,不知能否?请各位帮忙。

全部回答

2010-10-16

0 0

    操作说明: 1、在D列每班第一行输入拟在其前插入的行数。 2、在表左侧插入空列。 3、在A3输入1,在A4输入公式“A3+D4+1”,向下复制到A13。 4、在新表A16、A17分别输入1、2,用选中A16:A17向用填充柄向下填充导A31。
   5、自B16开始选中B16:C31,输入公式“=IF(ISERROR(VLOOKUP($A16,$A$3:$C$13,COLUMN(),)),"",VLOOKUP($A16,$A$3:$C$13,COLUMN(),))”,点CTRL+ENTER键,结果如黄色区域。
     6、复制B16:C31,“选择性粘贴/数值/确定”,消除公式,最后将插入的A列和D列删除,结果如sheet2。 该方法不简捷,但聊胜于无,供参考吧。 ★在D列标注插入空格数量: 1)在D5输入公式“=IF(B5<>B4,4-COUNTIF($B$3:$B$12,B4),"")”,向下复制到D13,结果如黄色区域。
     2)复制D5:D13,“选择性粘贴/数值/确定”,消除公式。 3)选中D5:D13,“数据/分列/下一步/下一步/完成”,然后再实施上述第3步操作。

2010-10-18

328 0

    这个问题用公式不能处理。用数组公式模拟的话,数据量也不宜太大。最好的方法还是用宏。 下面是根据你的要求定制的宏: Option Explicit Sub 插入空行() Application。
  ScreenUpdating = False Dim k%, i% k = 3 With ActiveSheet Do While k 0 And IsNumeric(。  Cells(k, 4)) Then For i = 1 To 。
  Cells(k, 4) 。Cells(k, 4)。EntireRow。Insert Shift:=xlShiftDown k = k + 1 Next i End If k = k + 1 Loop End With Application。
    ScreenUpdating = True End Sub 具体的运行效果,看附件!。

类似问题换一批

热度TOP

相关推荐
加载中...

热点搜索 换一换

电脑/网络
办公软件
程序设计
电脑装机
操作系统/系统故障
硬件
笔记本电脑
百度
互联网
反病毒
软件
软件
办公软件
多媒体软件
系统软件
网络软件
图像处理软件
办公软件
办公软件
举报
举报原因(必选):
取消确定举报