for循环实现数据插入

逆光小孩2011

1.rar (6.29 KB, 下载次数: 8)

2014-1-24 16:16 上传

点击文件名下载附件

想实现for循环，从单列（A列）数据变成三列数据，间隔不规则行数空一行（实现结果如：B,C,D列），谢谢大家帮帮忙吧~在线等
详细数据见附件！

sunya_0529

这个间隔不规则行数的规律是什么呢？难道让程序随机？

逆光小孩2011

sunya_0529 发表于 2014-1-24 17:15
这个间隔不规则行数的规律是什么呢？难道让程序随机？

那倒不是，第一次三行空一行，其余全是六行空一行~(*^__^*)

sunya_0529

逆光小孩2011 发表于 2014-1-24 17:34
那倒不是，第一次三行空一行，其余全是六行空一行~(*^__^*)

1. Option Explicit
   
2. 
   
3. Sub 处理数据()
   
4. Dim i%, j%, k%, l%, arr()
   
5. With ActiveSheet
   
6.   i = 1
   
7.   j = .[A1].End(xlDown).Row
   
8.   ReDim arr(j * 4 / 9, 2)
   
9.   Do While i <= j
   
10.     If (i - 10) Mod 18 = 0 Then
    
11.       l = l + 1
    
12.     End If
    
13.     k = Int((i - 1) / 3) + l
    
14.     arr(k, 0) = .Cells(i, 1)
    
15.     arr(k, 1) = .Cells(i + 1, 1)
    
16.     arr(k, 2) = .Cells(i + 2, 1)
    
17.     i = i + 3
    
18.   Loop
    
19.   .[E:G].ClearContents
    
20.   .[E1].Resize(UBound(arr), 3) = arr
    
21. End With
    
22. End Sub
    

复制代码

逆光小孩2011

sunya_0529 发表于 2014-1-24 19:18

本人初学者，8,10,13行的计算没有看懂~求讲解(*^__^*)

sunya_0529

逆光小孩2011 发表于 2014-1-26 11:17
本人初学者，8,10,13行的计算没有看懂~求讲解(*^__^*)

第8行是定义数组维度，节约内存；
第10行的作用是一开始间隔三行空一行，后来每隔六行空一行，随着循环开始，刚好是第10个数据前空一行，第28个数据前空一行，以此类推。
第13行是定义数组的行号，遇到需要插入空行的（l），就+1，这样可以产生空行的效果。