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

zhouxingyu

请哪位老师帮忙写段代码,是将数据纵向分割成横向的,详见附件.谢谢!
分割.zip (10.15 KB, 下载次数: 17)

2015-1-11 09:40 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

xdragon

2015-1-11 11:31

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

复制代码

跳转到最佳答案楼层

xdragon

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

复制代码

ghostjiao

你这不对啊，03最多256列15行，也就是最多能有256*15=3840条数据，再多的话就另需要换行了

zhouxingyu

xdragon 发表于 2015-1-11 10:05

非常感谢!测试了下,行数有限制,超过3810行,运行到下面这条时会出现1004错误,
    rng.Resize(UBound(re), UBound(re, 2)) = re

zhouxingyu

ghostjiao 发表于 2015-1-11 10:18
你这不对啊，03最多256列15行，也就是最多能有256*15=3840条数据，再多的话就另需要换行了

对,测试了,超过3810行就出错.就解决办法吗?谢谢!

张雄友

zhouxingyu 发表于 2015-1-11 10:38
对,测试了,超过3810行就出错.就解决办法吗?谢谢!

你的意思是这样？

xdragon

zhouxingyu 发表于 2015-1-11 10:36
非常感谢!测试了下,行数有限制,超过3810行,运行到下面这条时会出现1004错误,
    rng.Resize(UBound(re) ...

请说明后续怎么处理。。。
比如多出来的放那里=、= 因为你要15行隔开，那剩余 列就没地方放了。。。。是忽略还是？

zhouxingyu

xdragon 发表于 2015-1-11 10:52
请说明后续怎么处理。。。
比如多出来的放那里=、= 因为你要15行隔开，那剩余 列就没地方放了。。。。是 ...

剩余列换行放下面就可以,在你的示例中是C16起.麻烦你再改改行吗?多谢!

zhouxingyu

张雄友 发表于 2015-1-11 10:49
你的意思是这样？

行数还是有限制,我把A列复制一遍追加上去就会出错.

张雄友

zhouxingyu 发表于 2015-1-11 11:04
行数还是有限制,我把A列复制一遍追加上去就会出错.

我只是模拟效果。