[已解决]EXCEL中隔N行插入指定行

yjwdjfqb · 发表于 2016-12-12 15:43

EXCEL中隔N行插入指定行

各位老师们，我试着做了一个，没有成功，请老师们帮帮修改下，谢谢老师们了！
Sub test()
Dim ar, br, MyRange As Range
Dim wr
On Error Resume Next
Set ar = Application.InputBox(prompt:="请输入开始单元格", Title:="提示", Default:="请选择", Type:=8)
On Error Resume Next
Set br = Application.InputBox(prompt:="请选择需要插入的行", Title:="提示", Default:="请选择", Type:=8)
wr = InputBox("请问隔几行插入", "提示", "隔几行")
aend = ar.End(xlUp).Row '取得最后行号
Application.ScreenUpdating = False
For i = ar To aend Step wr '从ar开始循环到最后一行，步长为wr(每隔wr行插入)
Set MyRange = br '把第br引用赋给变量 myrange
MyRange.EntireRow.Insert Shift:=xlDown '整行插入
Next
Application.ScreenUpdating = True
End Sub
谢谢老师们了！

最佳答案

月排行榜 / 总排行榜

七彩屋

2016-12-13 10:51

yjwdjfqb 发表于 2016-12-12 21:27
老师你好，可能还是我表述的不清楚

我是想，这样

修改这一句
For i = ar1 + wr - 1 To aend - 1 Step wr

跳转到最佳答案楼层

七彩屋 · 发表于 2016-12-12 16:23

不上传附件的话很难理解要求

yjwdjfqb · 发表于 2016-12-12 16:34

七彩屋发表于 2016-12-12 16:23
不上传附件的话很难理解要求

VBA隔n行，插入指定行.rar (8.91 KB, 下载次数: 4)

七彩屋 · 发表于 2016-12-12 17:36

Sub test()
Dim ar, br, MyRange As Range
Dim wr
On Error Resume Next
Set ar = Application.InputBox(prompt:="请输入开始单元格", Title:="提示", Default:="请选择", Type:=8)
ar1 = ar.Row
On Error Resume Next
Set br = Application.InputBox(prompt:="请选择需要插入的行", Title:="提示", Default:="请选择", Type:=8)
br1 = br.Row
wr = InputBox("请问隔几行插入", "提示", "隔几行")
aend = Range("a65536").End(xlUp).Row '取得最后行号
Application.ScreenUpdating = False
For i = ar1 + wr To aend Step wr '从ar开始循环到最后一行，步长为wr(每隔wr行插入)
n = n + 1
Rows(i + n).EntireRow.Insert Shift:=xlDown '整行插入
Rows(br1).Copy Cells(i + n, 1)
Next
Application.ScreenUpdating = True
End Sub

复制代码

七彩屋 · 发表于 2016-12-12 17:37

就按你原来的代码上修改一下

yjwdjfqb · 发表于 2016-12-12 19:20

七彩屋发表于 2016-12-12 17:37
就按你原来的代码上修改一下

老师你好，刚才是我把附件制作错了，现在更正下，请老师看下这个附件好吧
附件中有个手工结果表。
请老师帮改下好吧，谢谢了老师！

VBA隔n行，插入指定行二.rar (9.7 KB, 下载次数: 11)

七彩屋 · 发表于 2016-12-12 21:18

Sub Test()
Dim ar, br, MyRange As Range
Dim wr
On Error Resume Next
Set ar = Application.InputBox(prompt:="请输入开始单元格", Title:="提示", Default:="请选择", Type:=8)
  ar1 = ar.Row
On Error Resume Next
Set br = Application.InputBox(prompt:="请选择需要插入的行", Title:="提示", Default:="请选择", Type:=8)
  br1 = br.Row
wr = InputBox("请问隔几行插入", "提示", "隔几行")
  aend = Range("a65536").End(xlUp).Row '取得最后行号
Application.ScreenUpdating = False
  For i = ar1 To aend - 1 Step wr '从ar开始循环到最后一行，步长为wr(每隔wr行插入)
n = n + 1
   Rows(i + n).EntireRow.Insert Shift:=xlDown  '整行插入
   Rows(br1).Copy Cells(i + n, 1)
  Next
Application.ScreenUpdating = True
End Sub

七彩屋 · 发表于 2016-12-12 21:19

修改这里
For i = ar1 To aend - 1 Step wr

yjwdjfqb · 发表于 2016-12-12 21:27

七彩屋发表于 2016-12-12 21:19
修改这里
For i = ar1 To aend - 1 Step wr

老师你好，可能还是我表述的不清楚

我是想，这样
例如：我选择序号1的位置时，隔二行插入(要把序号1这一行算上，序号2这一行，就是二行了)，所以就是在序号2后面插入、在4后面插入、在6后面插入

七彩屋 · 发表于 2016-12-13 10:51

yjwdjfqb 发表于 2016-12-12 21:27
老师你好，可能还是我表述的不清楚

我是想，这样

修改这一句
For i = ar1 + wr - 1 To aend - 1 Step wr

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

[已解决]EXCEL中隔N行插入指定行

相关帖子

评分