【请指教】 for 循环步长问题

excel初级小白

诉求：数据分组 每5行一组，添加3行


Sub demo()
    Dim i As Integer
    Dim n As Integer
    Sheet2.Cells.Clear
    Sheet2.DisplayPageBreaks = 0  '分页符
    Sheet1.UsedRange.Copy Sheet2.Range("a1")
      
'-----------------分组插入多行-------------------
    n = Sheet2.Cells(Rows.Count, 1).End(3).Row+10
    For i = 1 To n Step 5
    Sheet2.Rows(i + 6).Resize(3).Insert
    i = i + 3
    Next i
    End Sub

后面几行没有添加成功   应该是n的问题  n如何算出来的

liulang0808

从下到上遍历，然后插入吧
要么考虑下n = Sheet2.Cells(Rows.Count, 1).End(3).Row+10
后面+10，再增加足够大看看

excel玉米

用数组模式。一种是考虑定义一个大数组，将原数组按循环五，然后留空三，来依次循环写入大数组，将大数组一次写入表中。另一种定义数组大小为5，原数组循环五后，写入工作表，在下一次循环写入工作表时，在工作表有数据最下列标加四，然后写入

excel玉米

当然，按你原来的做法，是n值太小，要这样计算：
n = Sheet2.Cells(Rows.Count, 1).End(3).Row
n = n / 5 * 3 + n

剑指E

jiangxiaoyun

插入行要考虑向上插入还是向下插入。如果是第5行，向下插入1行，那么第6行就是空白的了。具体自己用F9逐条执行一下插入操作就明白了。或者手工插入行

tanglf188

用数组或字典也可以考虑：一次取5行（最后一次有多少取多少），赋值给数组或字典，再添加3组空数据，完了再输出到单元格，insert的方法效率要低一点。

excel玉米

wj2368

n = (Sheet2.Cells(Rows.Count, 1).End(3).Row - 1) / 5 * (5 + 3)

wj2368

。。。。。。。。。。。。