[已解决]循环填入

left369

循环填入

最佳答案

月排行榜 / 总排行榜

这儿有肥猫

2014-10-16 10:22

cccc

跳转到最佳答案楼层

baksy

B396单元格复制以下公式，
横拉、下拉；
=MOD(B395-1+10,10)

left369

公式不太好，有没有代码的。

这儿有肥猫

1. Sub a()
   
2. Dim i&, j&, arr
   
3. ReDim arr(1 To 11, 1 To Cells(390, Columns.Count).End(xlToLeft).Column)
   
4. For i = 1 To UBound(arr, 2)
   
5.     arr(1, i) = Cells(390, i + 1)
   
6. Next
   
7. For j = 1 To 10
   
8.     For i = 1 To UBound(arr, 2)
   
9.         arr(j + 1, i) = arr(j, i) - 1
   
10.         If arr(j + 1, i) < 0 Then
    
11.            arr(j + 1, i) = 9
    
12.         End If
    
13.     Next
    
14. Next
    
15. [b394].Resize(UBound(arr), UBound(arr, 2)) = arr
    
16. Range(Cells(394, 2), Cells(394, UBound(arr, 2))) = ""
    
17. End Sub
    
18. 
    

复制代码

这儿有肥猫

cccc