黄色区域输入序号
F7=F2+0.1向下复制
选中A2:F11区域数据-排序-无标题行-主要关键字列F-升序-确定
结果如下
给你个步骤
假如你的数据有20行
第一步选中第2行到第20行之后插入,然后新的第2行到第20行就是空白了,而人员就到了第21行到第40行了
第二步把第一行全部标题向下填充到第2行到第20行,然后标题就是第1行到第20行
第三步在“标题列前”第1行到第20行插入行“1、3、5、7、9、、、向下填充,(奇数填充完所有标题行)”
第四步在原内容数据列把第20行到第40插入行“2、4、6、8、10、、、、向下填充,(偶数填充一直到最后)
第五在第一行前插入一栏(空白栏)‘筛选’‘升序’就可以实现了
可QQ573076908 进行实战
1.按住“Ctrl 键”点选每一行
2.在任意所选行右击
3.选择“插入行”
Private Function insert()
Dim i As Long
For i = 2 To UsedRange.Rows.Count * 2 Step 2
Rows(i).insert
Next
End Function
你可以先做好有数据的行,然后分别选中那一个行插入新的行