请问各位老师该 如何修改该代码

送到

P1是我原始的数据，P2中用红框框出来的地方是我想通过代码实现的，目前我遇到的几个问题，第一，无法使代码能循环起来，我目前的代码到A13就 停止了，无法继续进行；第二个问题，就是我写的代码不能适应全部条件，只能适应A8:B13这个范围，一但发生变动，就无法达到要求了，想请教下各位老师，该如何修改。

一把小刀闯天下

'还是重写吧，你这码有点乱

'应该差不多，满意来朵小花

Option Explicit

Sub test()
  Dim i, j, pos, n, cnt
  For i = 1 To Cells(Rows.Count, "a").End(xlUp).Row + 1
    If InStr(Cells(i, "a"), "板") Then pos = i + 1
    If Len(Cells(i, "a")) = 0 Then
      n = 0
      For j = i To 2 * i - pos - 1
        n = n + 1
        Cells(j, "a") = Cells(i - n, "a")
        Cells(j, "b") = Cells(i - n, "b") - 7
      Next
      Cells(j, "a") = Cells(i - n, "a")
      Cells(j, "b") = Cells(i - n, "b")
      i = j + 1
    End If
  Next
End Sub

送到

一把小刀闯天下 发表于 2018-8-22 15:01
'还是重写吧，你这码有点乱

'应该差不多，满意来朵小花

哈哈哈，可以了 ，太开心了，我憋了半天没搞出来，太感谢你了