Boa tarde!!

Considerando que os dados (A, B, C, D) estão em C.
Tente a formula

=ÍNDICE($C$1:$C$4;MOD(LIN(A1)-1;4)+1)

Arrate para baixo!

Att

Não foi

E os dados
AMARELO
VERDE
AZUL?

Que dai sim iriam criar para cada um deles a letrea A B C e D?

Estou quase conseguindo

Vc sabe como repito o valor A durante 4 linhas e a partir da quinta linha começar o B e repetir o B por 4 vezes, e assim vai...?

xinxilas,

Bom... fiz com código VBA. Se servir, é só falar.

@Wagner Morel
Eu ja consegui o que queria mas vamos ver se na pratica com Macro acaba sendo melhor pode ser?
Quero sim pode mandar?

@alexandrevba
Depois de algum tempo usando a mesma logica e manhas, consegui fazer essa formula:

=ÍNDICE($B$1:$B$4;MOD(INT((LIN(A1)-1)/CONT.VALORES($A$1:$A$6));CONT.VALORES($B$1:$B$4))+1)&" "&ÍNDICE($A$1:$A$6;MOD(LIN(A1)-1;6)+1)

Mas se ainda tiver uma forma mais enxuta agradeço!

Tem 2 colunas:
A(6 linhas na coluna A):
AMARELO
AZUL
VERMELHA
ROXO
LILAS
ROSA

B(4 linhas na coluna B)
A
B
C
D

Ai usando essa formula em A1 e arrastando pra baixo
A AMARELO
A AZUL
A VERMELHA
A ROXO
A LILAS
A ROSA
B AMARELO
B AZUL
B VERMELHA
B ROXO
B LILAS
B ROSA
C AMARELO
C AZUL
C VERMELHA
C ROXO
C LILAS
C ROSA
D AMARELO
D AZUL
D VERMELHA
D ROXO
D LILAS
D ROSA

arrumando uma coisa:

=ÍNDICE($B$1:$B$4;MOD(INT((LIN(A1)-1)/CONT.VALORES($A$1:$A$6));CONT.VALORES($B$1:$B$4))+1)&" "&ÍNDICE($A$1:$A$6;MOD(LIN(A1)-1;CONT.VALORES($A$1:$A$6)+1)

Ok.

Segue minha sugestão.

Muito bom ja vou usar

Eu gostaria de fazer uma coisa, dentro do For quando cria os itens, verificar se quero adicionar o item ou não de acordo com outra tabela que vou acessar usando procv

Exemplo:

ADICIONAR? | SIM OU N
AMARELO | 1
VERDE | 0
AZUL | 1

Dai ele só adiciona se tiver 1 na tabela, vc pode me ajudar?

xinxilas,

Bom dia!

Nesse caso, se entendi corretamente, só cria uma nova linha na aba Resultados se na tabela cores tiver o número 1. Correto? Se for assim, segue já com a alteração solicitada.

Seria isso, mas preciso traduzir

If procv( Sheets("Cores").Range("B" & i).Value ; Tabela1 ; 2 ; 1 ) .value Then

pra ser usando em Vba

    For i = 2 To UltimaLinhaCores
        For j = 2 To UltimaLinhaCódigos
            If procv( Sheets("Cores").Range("A" & i).Value ; Tabela1 ; 2 ; 1 ) .value Then
                Sheets("Resultados").Range("A" & LinhaResultados).Value = Sheets("Cores").Range("A" & i).Value & " " & Sheets("Códigos").Range("A" & j).Value
                LinhaResultados = LinhaResultados + 1
            End If
        Next
    Next
    MsgBox "A nova tabela foi criada na aba Resultados!", vbDefaultButton1, "DADOS COPIADOS"
End Sub

TABELA1 seria isso:

Coluna A		|	Coluna B
AMARELO		|	1
VERDE		|	0
AZUL			|	1

Vamos ver se entendi agora.

Olá exólogos rs,

Segue minha contribuição.

Era isso que você esperava !?