上传附件

胡光

就是想通过A列的合并单元格来判断来批量插入单元格让总行数为8行整， 如A1为4行则插入4行，如A5为5行则插入3行，让每次判断完插入的总行数为8行整

excel玉米

Sub s()
  Dim i As Long, y As Long, k As Long, m As Long, n As Long
  With Sheet1
  n = .Range("A65536").End(xlUp).Row / 4 * 8
    For i = 1 To n Step 8
    If .Cells(i, 1) <> "" Then
     If .Cells(i, 1).End(xlDown).Row < 8 + i Then
       y = 8 - (.Cells(i, 1).End(xlDown).Row - i)
       Rows(.Cells(i, 1).End(xlDown).Row).EntireRow.Resize(y).Insert
        For k = 1 To 4
         .Range(Cells(i, k), Cells(.Cells(i, 1).End(xlDown).Row - 1, k)).MergeCells = True
        Next
      End If
     End If
     Next
     n = .Range("A65536").End(xlUp).Row
      For k = 1 To 4
         .Range(Cells(n, k), Cells(n + 8, k)).MergeCells = True
        Next
      .Range(Cells(n, 1), Cells(n + 8, 8)).Borders.LineStyle = 1     '加入边框
  End With
  
End Sub

excel玉米

用Do While Loop 循环更为方便。程序如下：
Sub ss()
  Dim y As Long, i As Long, n As Long, k As Long
  i = 1
  With Sheet1
    Do While i <= .Range("a65536").End(3).Row
    If .Cells(i, 1) <> "" Then
     If .Cells(i, 1).End(xlDown).Row < 8 + i Then
       y = 8 - (.Cells(i, 1).End(xlDown).Row - i)
       Rows(.Cells(i, 1).End(xlDown).Row).EntireRow.Resize(y).Insert
        For k = 1 To 4
         .Range(Cells(i, k), Cells(.Cells(i, 1).End(xlDown).Row - 1, k)).MergeCells = True
        Next
      End If
      i = i + 8
     End If
     Loop
      n = .Range("A65536").End(xlUp).Row
      For k = 1 To 4
         .Range(Cells(n, k), Cells(n + 8, k)).MergeCells = True
        Next
      .Range(Cells(n, 1), Cells(n + 8, 8)).Borders.LineStyle = 1   
  End With
End Sub