excel自动加行的问题

显示全部楼层 · 2009-7-8 18:03:39

///修改这行 Range(Cells(i, 1), Cells(i, 1)).Rows.Insert为： Rows(i).Insert就可以了。///运行下面宏即可。宏的使用方法：在打开的EXCEL文件中，按ALT＋F11，打开的窗口中，插入－＞模块，右边的空白中粘贴下面的代码，按F5运行该宏，回到工作表窗口可看到结果了。Sub 断号加空位()'' Macro1 Macro' 宏由 yym 录制，时间: 2006-4-13'If Trim(Cells(2, 8).Value) = "" Then Exit Sub '第2行第8列若为空，则退出程序。
starnum = Val(Cell...

千问 · 2009-7-8 18:03:39

用宏来解决。Sub Macro1()'' Macro1 Macro'Dim sss As StringFor i = 1 To 1000
sss = "A" & i
If Range(sss)i Then
Range(sss).Select
Selection.Inser...

千问 · 2009-7-8 18:03:39

有个不用宏的办法.(在有数据的一行上面插入一行,并把第一行作为标题,假设A1是标题"序列",B1是标题"名称",注意:凡A列有数据的行数,B列内必须有数据,B列内任何格式类型的都可以,这是很关键的一点.)详细操作步骤如下:假设A列已按升序排列,自A列最后一个单元格的下方单元格开始填充1、2、3、.....1000，一直填充到1000。选择菜单："数据...