
X Y 0 1,00 1 1,00 2 1,00 3 1,00 4 2,00 5 2,00 6 2,00 7 2,00 8 3,00 9 3,00 10 3,00 11 3,00 12 4,00 13 4,00 14 4,00 15 4,00 |
Formula:
=INT(A2/4)+1
VBA:
For i = 2 To Range("a" & Rows.Count).End(xlUp).Row
Cells(i, 2) = Int(Cells(i, 1) / 4) + 1
Next |
Option Explicit
Sub selectocaso()
Dim x As Long, i As Long, k As Long
For i = 2 To 17
x = Cells(i, 1)
Select Case x
Case 0 To 3
k = 1
Case 4 To 7
k = 2
Case 8 To 11
k = 3
Case 12 To 15
k = 4
End Select
Next i
End Sub
|
