如何形成下面数据

算了算了算是

在A1输入起始数据, 然后形成下面数据, 好久没用vba了, 不知道怎么搞了, 附件有数据

7列是固定的, 数据是4个重复的

良良

A1=INDEX(INT(ROW($4:$31)/4)+INT(ROW(A4)/4)*7-7,MOD(ROW(A1)-1,4)*7+MOD(COLUMN(A1)-1,7)+1)，右拉、下拉。

caiyu93

1. Sub main()
   
2.     map 10, 4, 7, Sheet2.[a1]
   
3. End Sub
   
4. 
   
5. Sub map(ByVal range&, count, ByVal col, out As range)
   
6.     n& = Int(range * count / col + 0.5)
   
7.     Dim m&, s$, arr(), sp$()
   
8.     arr = out.Resize(n, col)
   
9.     For i& = 1 To range
   
10.         For j% = 1 To count
    
11.             s = s & " " & i
    
12.         Next
    
13.     Next
    
14.     s = Mid(s, 2)
    
15.     sp = Split(s, " ")
    
16.     x& = 1
    
17.     For i = 0 To UBound(sp)
    
18.         m = m Mod col + 1
    
19.         arr(x, m) = sp(i)
    
20.         If m = col Then x = x + 1
    
21.     Next
    
22.     With out
    
23.         .Resize(n, col) = arr
    
24.         .CurrentRegion.HorizontalAlignment = 3
    
25.     End With
    
26. End Sub

复制代码