Combinar valores entre duas colunas - Excel

andestevam · 23 de agosto de 2012

Olá pessoal, estou precisando de uma ajuda aqui.

Tenho o seguinte caso com duas colunas:

A 1

B 2

C 3

D

E gostaria de montar a seguinte combinação:

A 1

A 2

A 3

B 1

B 2

B 3 ... e assim por diante

Existe alguma maneira de fazer isso que não seja manual? Lembrando que os valores de cada coluna podem variar...

Obrigado!

Patropi · 23 de agosto de 2012

Boa tarde andestevam

Seja bem vindo ao fórum!

Para facilitar o entendimento, poste um exemplo da tua planilha, demonstrando o resultado esperado, num site gratuito como:

www.sendspace.com

Depois cole o link aqui no fórum.

Um abraço.

andestevam · 23 de agosto de 2012

Boa tarde Patropi.

Copiei o link a seguir:

http://www.sendspace.com/file/zkb0jw

Obrigado pelas boas vindas e pela ajuda!

Abraços.

25 de agosto de 2012

Instale o código abaixo em um módulo comum, assim:

1. copie o código daqui

2. a partir da planilha em que estão os dados tecle 'Alt+F11' para acessar o editor de VBA

3. no menu do editor >> Inserir >> Módulo

4. cole o código na janela em branco que vai se abrir

5. feito! 'Alt+Q' para retornar para a planilha e testar

para rodar o código:

6. tecle 'Alt+F8' >> selecione a macro correspondente >> Executar, ou insira um botão na planilha e vincule-o à macro

Sub VamosCombinar()
  Dim LR As Long, k As Long, m As Long, x As Long, rng As Range
    Range("D:E").ClearContents
    k = Application.CountA(Range("B:B"))
    LR = Cells(Rows.Count, 1).End(xlUp).Row
    x = 1

  For m = 1 To LR
    Cells(x, 4).Resize(k) = Cells(m, 1)
      Cells(x, 5).Resize(k) = Cells(1, 2).Resize(k).Value
    x = x + k
  Next m
End Sub

Considerei que os dados estão nas colunas 'A' e 'B' a partir da linha '1'.

O resultado da combinação será lançado pelo código nas colunas 'D' e 'E' a partir da linha '1'.