[已解决]用代码分割数据

zhouxingyu

张雄友 发表于 2015-1-11 11:08
我只是模拟效果。

多谢.想要的就是这效果,当中不用空行.

xdragon

1. Sub test()
   
2.     Dim arr, i&, re, jg%, rng As Range, maxcol%, col%
   
3.     Set rng = Range("C1") '设置导出的区域
   
4.     jg = 15  '设置每行间隔
   
5.     maxcol = Columns.Count - rng.Column + 1
   
6.     arr = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value
   
7.     col = UBound(arr) \ jg + IIf(UBound(arr) Mod jg = 0, 0, 1)
   
8.     ReDim re(1 To jg * (col \ maxcol + 1), 1 To IIf(maxcol < col, maxcol, col))
   
9.     For i = 1 To UBound(arr)
   
10.         re((i - 1) Mod jg + 1 + Int((i - 1) / maxcol / jg) * jg, (i - 1) \ jg Mod maxcol + 1) = arr(i, 1)
    
11.     Next
    
12.     rng.Resize(UBound(re), UBound(re, 2)) = re
    
13.     Range("A1").Copy
    
14.     rng.Resize(UBound(re), UBound(re, 2)).PasteSpecial Paste:=xlPasteFormats
    
15.     Application.CutCopyMode = False
    
16. End Sub

复制代码

zhouxingyu

xdragon 发表于 2015-1-11 11:31

完美实现,太感谢了!

张雄友

xdragon 发表于 2015-1-11 11:31

如果每15行隔一空行是怎么样的？