请教各位老师，如何根据长度插入对应的空行

送到 · 发表于 2018-8-21 09:10

如图片我框出的部分，例：A3:A7之间有5行，然后我想在A7与A8之间插入5个空白行；A10：A21之间有12行，然后在A21与A22之间插入12个空白行，以此类推，请教下各位老师，该如何写。

一把小刀闯天下 · 发表于 2018-8-21 09:30

'是这意思吧

Option Explicit

Sub test()
  Dim i, j
  For i = Cells(Rows.Count, "b").End(xlUp).Row To 2 Step -1
If InStr(Cells(i, "a"), "#") Then
   For j = i - 1 To 2 Step -1
      If InStr(Cells(j, "a"), "板") Then
      Cells(i, "a").Resize(i - j - 1).Insert (3)
      i = j: Exit For
      End If
   Next
End If
  Next
End Sub

苏小亓 · 发表于 2018-8-21 09:35

附件.zip (37.46 KB, 下载次数: 2)

送到 · 发表于 2018-8-21 09:40

苏小亓发表于 2018-8-21 09:35

老师，这里面没有代码

苏小亓 · 发表于 2018-8-21 09:41

送到发表于 2018-8-21 09:40
老师，这里面没有代码

我是手动一个个插入的。没代码

送到 · 发表于 2018-8-21 09:50

一把小刀闯天下发表于 2018-8-21 09:30
'是这意思吧

Option Explicit

可以用的，非常感谢你，对我们这种小白来说真是太感谢了。

送到 · 发表于 2018-8-21 10:06

苏小亓发表于 2018-8-21 09:41
我是手动一个个插入的。没代码

我这个不是固定的，每次都会变的，问题已经解决了，谢谢你的帮助

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

[求助] 请教各位老师，如何根据长度插入对应的空行

评分