vba - 在每个组下插入总计行

Question

我需要在每个组下插入一行总计和一个分页符。

我尝试了以下插入行，但是当我只想要一个时，它插入了不止一行。

Sub macro()
Dim sh1 As Worksheet
Dim i As Long, lastrow1 As Long

Set sh1 = Worksheets("Sheet1")     
lastrow1 = sh1.Cells.SpecialCells(xlCellTypeLastCell).Row

For i = 1 To lastrow1

   If sh1.Cells(i, "A").Value = "sell" Then
      sh1.Cells(i, "A").EntireRow.Insert
   End If
Next i
End Sub

Answer 1

我不是 VBA 专家，但看起来你的代码每次找到“sell”时都会插入一行，因此插入了多行。

插入行后尝试添加中断以使您退出 for 循环。

希望这可以帮助。
啊注意，在 VBA Exit For用于跳出 for 循环
所以你的代码是

Set sh1 = Worksheets("Sheet1")     
lastrow1 = sh1.Cells.SpecialCells(xlCellTypeLastCell).Row

For i = 1 To lastrow1
    If sh1.Cells(i, "A").Value = "sell" Then
       sh1.Cells(i, "A").EntireRow.Insert
       Exit For
    End If
Next i
End Sub