[已解决]VBA如何实现有规律数字自动填充从A1开始

香川群子

grf1973 发表于 2016-3-8 14:32

把你的算法改进为蛇行数列通用（转折行数H可任意设置）

1. Sub TEST3() 'grf1973 算法 由kagawa改进。
   
2.     Dim ar(), i, j, H, L, k, m, n
   
3.     n = 0     '起始值
   
4.     m = 90  '结束值
   
5.     H = 5     '转折行数
   
6.    
   
7.     [a1].CurrentRegion = ""
   
8.    
   
9.     L = (m - n) \ H + 1
   
10.     ReDim ar(1 To H, 1 To L)
    
11.     i = 1: j = 1
    
12.     For k = n To m
    
13.         Cells(i, j) = k
    
14.         ar(i, j) = k
    
15.         If (k - n) Mod H = H - 1 Then '求余计算得到转折位置。
    
16.             j = j + 1 '转折位置列j+1 行i不变
    
17.         Else '其余位置按列数的奇、偶决定行数i的升序或降序 但列数j不变
    
18.             If j Mod 2 Then i = i + 1 Else i = i - 1
    
19.         End If
    
20.     Next
    
21.     [a1].Resize(H, L) = ar
    
22. End Sub

复制代码

呵呵，这样做也很简单的。

香川群子

gufengaoyue 发表于 2016-3-8 14:15

如果把转折行数设置=5，那么你的代码循环周期=5*2=10
而参数数组是 arr = [{1,0;1,0;1,0;1,0;0,1;-1,0;-1,0;-1,0;-1,0;0,1}]

呵呵。

香川群子

3楼【grf1973】的算法，是最容易修改成为普适性的代码。

其它的代码都很难进行修改，只能作为特例使用。