求高手表格同时插入10行

676239165 · 发表于 2019-3-23 10:01

求高手，图表1如何达到图表2效果，同时插入10行

苏小亓 · 发表于 2019-3-23 10:05

EXCEL必备工具箱有这个功能，免费的。百度搜索EXCEL必备工具箱。

约定的童话 · 发表于 2019-3-23 10:25

量不多手插吧，量多VBA或者工具箱

676239165 · 发表于 2019-3-23 10:56

型号几百种同，量很大的

山菊花 · 发表于 2019-3-23 15:39

供参考。

尋找雅妮 · 发表于 2019-3-23 16:05

百度找的VBA代码，每行下插N行

Sub XXX()
xx = InputBox("请输入需要插入的行数：", "提示")
Application.ScreenUpdating = False
EndRow = Range("A65536").End(xlUp).Row
For i = 1 To EndRow
Rows(i + 1 + (i - 1) * xx).Select
For j = 1 To xx
Selection.Insert Shift:=xlDown
Next
Next
Application.ScreenUpdating = True
End Sub

复制代码

676239165 · 发表于 2019-3-24 16:48

山菊花发表于 2019-3-23 15:39
供参考。

快捷键不能操作啊，高手

山菊花 · 发表于 2019-3-24 16:55

676239165 发表于 2019-3-24 16:48
快捷键不能操作啊，高手

按Alt+F8，在对话框中选择宏执行。

676239165 · 发表于 2019-3-24 18:31

山菊花发表于 2019-3-24 16:55
按Alt+F8，在对话框中选择宏执行。

若增加了工序及单价两列，你的编码哪里需要改动啊

山菊花 · 发表于 2019-3-24 19:31

Sub 插入空行()
Dim nRow%, n%, Arr(), Brr()
nRow = Range("a65536").End(xlUp).Row
Arr = Range("a3:e" & nRow).Value
ReDim Brr(1 To nRow * 11, 1 To 5)
n = 1
For i = 1 To nRow - 2
      If Arr(i, 1) <> "" Then
         For j = 1 To 5
            Brr(n, j) = Arr(i, j)
         Next
         n = n + 11
      End If
Next
Range("a3:e" & n + 1).Value = Brr
Range("a4:e" & n + 1).Borders.LineStyle = 1
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 求高手表格同时插入10行

评分