Boa tarde Pessoal,
Preciso de uma ajuda. Preciso Copiar uma coluna de Estados e colar ela repetidas vezes em outra coluna. veja a ideia abaixo:
Para ser exato, eu tenho 296 produtos que tive que multiplicar cada produto por 28 (pois preciso colocar o código do estado neste produto para todos os estado) o valor total é 8288. Eu cheguei nessa solução:
Sub Repete()
Dim i, j, primeira As Integer
For i = 1 To Range("A65536").End(xlUp).Row
Rows(i).Copy
primeira = Range("A65536").End(xlUp).Offset(1, 0).Row
For j = 1 To 28
Rows(primeira).Select
ActiveSheet.Paste
primeira = primeira + 1
Next j
Next i
End Sub
Depois de multiplicados os produtos preciso colar o estados conforme ideia abaixo:
Produto:
A
A
A
A
B
B
B
B
C
C
C
C
Código | Estado
1 SP
2 RJ
3 MG
4 BA
Como gostaria que ficasse:
Produto | Código | Estado
A 1 SP
A 2 RJ
A 3 MG
A 4 BA
B 1 SP
B 2 RJ
B 3 MG
B 4 BA
C 1 SP
C 2 RJ
C 3 MG
C 4 BA
Ainda no final preciso concatenar essas informações para montar um IMPEX. Que deve seguir o seguinte formato: PRODUTO + Código Estado + PROMO + ESTADO
=CONCATENATE(";";PRODUTOS!$A$2;";";'Sheet2'!B2;";PROMO;";'Sheet2'!A2)
* Pessoal apresentei todo meu problema mais se resolverem somente cólar repetidas vezes me adianta muito meu braço. rs
Obrigado