[已解决]请教一个简单的编号问题，谢谢！

bipl607

各位朋友：我想用宏在A列赋值，具体是在A2－A13填上“1”，A14－A25填上“2”，A26－A37 填上“3”，。。。。。每间隔13列就依次按规律填上一个数，这个宏怎么写，谢谢！

最佳答案

月排行榜 / 总排行榜

gdsgzhrsh

2012-8-8 15:12

Sub AA()
K = 2
For I = 2 To 100
For J = 1 To 13
Range("A" & K) = I - 1
K = K + 1
Next
Next
End Sub

跳转到最佳答案楼层

gdsgzhrsh

Sub AA()
K = 2
For I = 2 To 100
For J = 1 To 13
Range("A" & K) = I - 1
K = K + 1
Next
Next
End Sub

JLxiangwei

1. Sub TEST()
   
2.     Dim x, arr
   
3.     arr = Range("a1:b" & Cells(Rows.Count, 1).End(xlUp).Row)
   
4.     For x = 1 To UBound(arr)
   
5.         arr(x, 2) = ((Mid(arr(x, 1), 2, 99) - 1) \ 13) + 1
   
6.     Next x
   
7.     Range("b1").Resize(x - 1, 1) = Application.Index(arr, , 2)
   
8. End Sub

复制代码

是不是这个意思

hrpotter

1. Sub test()
   
2.     Dim i As Long, j As Long
   
3.     For j = 1 To 256 Step 13
   
4.         For i = 2 To 37
   
5.             Cells(i, j) = (i - 2) \ 12 + 1
   
6.         Next
   
7.     Next
   
8. End Sub

复制代码

bipl607

多谢楼上的各位英雄，谢谢啦！谢谢！

JLxiangwei

理解错题了{:14:}

ls

Sub test()
    Dim i As Long
   
        For i = 2 To 138
            Cells(i, 1) = (i - 2) \ 12 + 1
        Next
   
End Sub