遇到辅助关键数字1时，excel自动分行

不知道啊

问题：遇到辅助关键数字1时，excel根据区间内
有多少个数据，自动分行，10行为基准，比如数据
目前是11个，就会自动分成20行，如果数据只有9个的话，就分10行。
如果数据是25的话，就会分成30行。。。

不知道啊

有大侠吗？小弟跪谢了。。。

不知道啊

自己顶个，，有大侠吗？

不知道啊

在线等待

baksy

附件

不知道啊

baksy 发表于 2016-3-30 21:23
附件

谢谢大侠，不过您好像没理解我的意思。。我又重新给你发了一个文件，你看看，前面的是列子。后面的是最终效果。在帮我看一下啊。。大侠

grf1973

1. Sub tt()
   
2.     arr = Sheet1.Range("a2:d" & Sheet1.[b65536].End(3).Row)
   
3.     ReDim brr(1 To 10 * UBound(arr), 1 To UBound(arr, 2))
   
4.     For i = 1 To UBound(arr)
   
5.         k = k + 1     '显示数组中的位置
   
6.         kk = kk + 1       '辅助中的记数
   
7.         If i > 1 And arr(i, 1) = 1 Then
   
8.             zjh = (kk \ 10 + 1) * 10 - kk         '增加行
   
9.             k = k + zjh + 1
   
10.             kk = 1
    
11.         End If
    
12.         For j = 1 To UBound(arr, 2)
    
13.             brr(k, j) = arr(i, j)
    
14.         Next
    
15.     Next
    
16.     Sheet2.[g1].Resize(1, 4) = Array("辅助", "材料名称", "产地", "制造商")
    
17.     Sheet2.[g2].Resize(k, UBound(arr, 2)) = brr
    
18. End Sub
    

复制代码

不知道啊

grf1973 发表于 2016-3-31 09:48

谢谢大侠。。。。