propagando dados do Excel

Question

A propagação pode não ser a palavra correta, mas as respostas que encontrei para "mesclar" e "combinar" não parecem se aplicar.

Eu tenho duas folhas de dados completamente diferentes. Por exemplo: sheet1 pode ter uma coluna de itens e sheet2 pode ter uma coluna de cores. Eu preciso acabar com 2 colunas em uma folha contendo todas as combinações possíveis das colunas das outras 2 folhas.

Portanto, no exemplo acima, se sheet1 tiver 140 itens e sheet2 tiver 17 cores, eu preciso que sheet3 tenha uma coluna de item, uma coluna de cor e 2.380 registros (um para cada item e combinação de cores possível).

    

Answer 1

Aqui está um exemplo simples que você pode adaptar.

Salvar, temos 7 itens nas cores da coluna A e 3 na coluna B . Executando esta macro curta:

Sub combine()
    Dim K As Long, i As Long, j As Long, Nitems As Long, Ncolors As Long

    K = 1
    Nitems = 7
    Ncolors = 3

    For i = 1 To Nitems
        For j = 1 To Ncolors
            Cells(K, "C").Value = Cells(i, "A").Value & "," & Cells(j, "B").Value
            K = K + 1
        Next j
    Next i
End Sub

produzirá isso na coluna C :