excel制作工资表，肿么每隔4行插入一个空行

Sub 按钮1_Click()For i = 5 To (Sheet1.UsedRange.Rows.Count + Int(Sheet1.UsedRange.Rows.Count / 4)) Step 4Sheet1.Rows(i).Inserti = i + 1Next iEnd Sub