先判断.后自动插入空单元格让下一段到D11

1吧吧

先判断. 后自动插入空单元格 生成在D1:D10 生成在D11:D20 生成在D21:D30......

liulang0808

1. Sub 按钮1_Click()
   
2.     Application.ScreenUpdating = False
   
3.     a = 1
   
4.     r = 1
   
5.     For j = 1 To Cells(Rows.Count, 1).End(3).Row
   
6.         If "第" & a + 1 & "名" = Cells(j, 1) Then
   
7.             Cells(r, 1).Resize(j - r, 2).Copy Cells((a - 1) * 10 + 1, "g")
   
8.             r = j
   
9.             a = a + 1
   
10.         End If
    
11.     Next j
    
12.     Cells(r, 1).Resize(j - r, 2).Copy Cells((a - 1) * 10 + 1, "g")
    
13.     Application.ScreenUpdating = True
    
14. End Sub
    

复制代码

liulang0808

附件内容供参考。。。。。。