Fazer corresponder um nr. a cada célula

[Elisa Maio 0]

Bom dia,

A minha dúvida é a seguinte, tenho os seguintes dados:

<ColunaB>

1

2

5

8

6

15

46

25

13

4

...

E quero acrescentar uma coluna ao lado que me faça o seguinte, se os nr. (da colunaB) forem de 1 a 15 , na nova coluna quero o nr.1 (em cada célula, por exemplo se numa célula da colunaB tiver o nr.2 quero que na nova coluna apareça o nr.1, isto na célula ao lado), de 16 a 30 quero o nr.2 e de 31 a 45 o nr.3.

Posso iniciar assim:

For i=3 to lastRow

If cells (i,2) <> " " then

...

Alguma ajuda? Sou muito nova nisto!

Ficaria algo do género:

<ColunaB> <ColunaC>

1 1

2 1

5 1

8 1

6 1

15 1

46 3

25 2

13 1

4

...

[Gnrtuga 20]

Boas, faz um selec case dentro do loop que já tens

https://msdn.microsoft.com/en-us/library/cy37t14y.aspx

[Elisa Maio 0]

Muito obrigada pela ajuda!

[tiago.f 22]

Oi, talvez já vá tarde mas, 2 coisas

no teu exemplo:

46 3

está mal certo? devia ser 4, não...?

E precisas mesmo de usar vba? è que basta pores uma formula na coluna C, digamos, C1, do tipo

=CEILING(B1/15;1)

[Elisa Maio 0]

sim precisei de vba, utilizei um select case (: