excel如何插入自定义行数

Sub 选中位置后插入自定义脊漏行()'不需要选中樱没烂整行

On Error Resume Next

Dim n As Long, i As Long

n = InputBox("插入行的行数"察团, "", 0)

For i = 1 To n

Selection.EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Next

End Sub

打开需要增加行列的excel表格

选定需要增加行的位置，鼠标右键点击[插入]，若要取消，鼠标右键点“删除”，若要增加列，也可用同样方法增加

扩展资料丛瞎——Excel是第一款允许用户自定义界面的电子制表软件（包括字体、文字属性和单元格格式）。它还引进了“智能重算”的功能，当单元格数据变动时，只有与陵郑余之相关的数据才会更新，而原先的制表软件只能重算全部数据或者等待下一个尺滚指令。同时，Excel还有强大的图形功能。

你的意思是有4列数据，要根据某行第4列的数值将该行内容复制N行？

根据你的描述，写了一段vba。你可以根据实际对其进行修改。

代码使用方法：按住ALT依次按F11,I,M；粘贴代码后按F5运行得到结果。

===============================================================

Sub 复制记录()

Sheets.Add '插入一个工作表用来获取结果

With Sheets("原始数据表") '假设原数枯逗据存放在工作表“原始数据表”中，如果不是请按实际修改

t = 2 '假设数据从第2行开始

For r = 2 To .[A65536].End(xlUp).Row '从第2行一直读取到A列最后一个数据所在行

x = .Cells(r, 4) '将该行第4列的数据读入变量

.Range(.Cells(r, 1), .Cells(r, 4)).Copy Range(Cells(t, 1), Cells(t + x - 1, 1)) '将该行数据复制x行

t = t + x '修改下一条记录的起始位置

Next

End With

[D:D].Insert Shift:=xlToRight '在D列前插入一列，用以增加你需要的序号。

Range(Cells(2, 4), Cells(t - 1, 4)).Select

With Selection

.FormulaR1C1 = "=IF(RC[1]=R[-1]C[1],R[-1]C+1,1)" '在该区域填充公式产生序号春败埋

.Copy

.PasteSpecial Paste:=xlPasteValues '将公式的结果扒蚂选择性粘贴为数值

End With

End Sub

---