Interval row count

[bsquad]

I am not sure why I am having so much trouble figuring out the VBA code on this one; I am just trying to paste values 1 to 12 in Column B for each cell occupied in Column A. I know its most probably super simple



Excel 2013 32 bit

	A​	B​
1​	Category	1​
2​	Category	2​
3​	Category	3​
4​	Category	4​
5​	Category	5​
6​	Category	6​
7​	Category	7​
8​	Category	8​
9​	Category	9​
10​	Category	10​
11​	Category	11​
12​	Category	12​
13​	Category	1​
14​	Category	2​
15​	Category	3​
16​	Category	4​
17​	Category	5​
18​	Category	6​
19​	Category	7​
20​	Category	8​
21​	Category	9​
22​	Category	10​
23​	Category	11​
24​	Category	12​
25​	Class	1​
26​	Class	2​
27​	Class	3​
28​	Class	4​
29​	Class	5​
30​	Class	6​
31​	Class	7​
32​	Class	8​
33​	Class	9​
34​	Class	10​
35​	Class	11​
36​	Class	12​

<tbody>
</tbody>

Sheet: Sheet1

<tbody>
</tbody>

 

[Marcelo Branco]

One way

Sub aTest()
    Dim i As Long
    
    With Sheets("Sheet1")
        For i = 1 To .Cells(.Rows.Count, "A").End(xlUp).Row
            .Cells(i, 2) = ((i - 1) Mod 12) + 1
        Next i
    End With
End Sub

Hope this helps

M.

 

[Scott Huish]

Another way without a loop:

Sub test()
With Range("B1:B" & Range("A" & Rows.Count).End(xlUp).Row)
    .Formula = "=MOD(ROWS($A$1:A1)-1,12)+1"
    .Value = .Value
End With
End Sub

 

[bsquad]

Marcelo Branco -

You are the man dammit! thank you so much

 

[bsquad]

Scott Huish, thank you as well!

 

[Marcelo Branco]

You are welcome. Thanks for the feedback.

M.

 

[dreid1011]

Just out of curiosity, what is the purpose of this?

=MOD(ROWS($A$1:A1)-1,12)+1

Providing you start in row 1 so the count is right...

Edit: Ah nvm, I see. I did not go all the way to row 12.