excel每行间插入5行

发布网友 发布时间：2022-04-22 18:09

我来回答

共5个回答

热心网友 时间：2023-09-14 20:26

我觉得还是辅助列好用些 选择大量数据可以通过在定位框里面输入范式解决 比如要选择A1到A1000，在定位框里面输入A1：A1000即可（不用鼠标拖）

1.首先在最左边插入一空列（A列）作为排序列，并在此列中对已有数据的通过系列填充添加一个自动编号（即在单元格A1到A200中填入从1到200）（方法是在新列第一格填入1，选中新列A1：Ax，点击 编辑/填充/序列，选择 等差 步长为1，确定）；

2.然后在单元格Ax+1中输入初始值“1”，接着选中Ax+1到Ax*6（即选足5*Ax行），再执行序列填充，步长为0.2，单击“确定”进行填充；

3.最后选中整张表以A列进行升序排序，删除辅助列，搞定！

保证能用

PS：x为你原来数据行数

热心网友 时间：2023-09-14 20:26

给你一个宏，需要提醒你的是，如果需要处理的行数太多会导致溢出:
2003有65536行
2007有104万行

Sub Macro1()
Dim i, j, k As Integer
Dim rowCount As Integer '需要处理的行数
Dim rowBlank As Integer '插入空行数
rowCount = 8000
rowBlank = 5
For i = 1 To rowCount
k = 2 + (rowBlank + 1) * (i - 1)
For j = 1 To rowBlank
rows(k).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next j
Next i
End Sub

热心网友 时间：2023-09-14 20:27

行数多，才需要辅助列呢
越多相对的越简单
大不了就是建立从1.1到1.5呗

如果能复制出来的话，到Word里面用通配符更简单，前提是没有容易被破坏的格式

热心网友 时间：2023-09-14 20:27

假定你的数据在sheet1 A列到H列，并从第一行开始。
新建一个sheet2，把sheet1第一行复制到sheet2第一行
在sheet2 A7单元格输入=OFFSET(Sheet1!$A$2,ROW()/6-1,COLUMN()-1)
向右拉~
再选中A2:H7,下拉~

热心网友 时间：2023-09-14 20:28

alt+ F11
插入模块
将下列代码粘贴进去
把8000改成你实际需要插入的数据的行数
Sub 宏1()
For i = 1 To 8000
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
ActiveCell.Offset(2, 0).Range("A1").Select
Next i
End Sub