代码如下：
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If Sheet1.[L1] <> 0 Then
Sheet1.[A2].Select
Dim I, J, K As Integer
Dim rowcount As Integer
Dim rowblank As Integer
rowcount = Sheet1.[H1]
rowblank = Sheet1.[F1]
For I = 1 To rowcount
K = 2 + (rowblank + 1) * (I - 1)
  For J = 1 To rowblank
    Rows(K).Select
Selection.Insert Shift:=xlDown, copyorigin:=xlFormatFromLeftOrAbove
Next J
Next I
Sheet1.[J1] = I - 1
Sheet1.[L1] = Sheet1.[H1] - Sheet1.[J1]
Else
MsgBox "您好，您已经执行了" & Sheet1.[J1] & "次，剩余执行次数为：" & Sheet1.[L1] & "次，请确认！"
End If
Application.ScreenUpdating = True
End Sub

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Call 删除行
Sheet1.[A2].Select
Sheet1.[J1] = 0
Sheet1.[L1] = Sheet1.[H1] - Sheet1.[J1]
Application.ScreenUpdating = True
End Sub

Private Sub Workbook_Open()
Sheet1.[A2].Select
Sheet1.[J1] = 0
Sheet1.[L1] = Sheet1.[H1]
End Sub


Sub 删除行()
'
' 删除行 Macro
' 宏由 zhendeaini 录制，时间: 2015-8-11
'
'
    'ActiveCell.Offset(-4, 0).Range("A1:B1").Select
    Columns("A:B").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.EntireRow.Delete
End Sub

帖子范围：搜索我近期发布的帖子。