Excel Replicar texto de uma célula em outra - excel

DaviCN · 15 de junho de 2020

Boa Tarde gente, gostaria muito da ajuda de vcs.

Gostaria que as informações contidas em uma célula na planilha do excel, fosse replicada em outras células com algumas condições. Ex: considerando a tabela abaixo

Tabela 1

Tipo 25/03/2020 26/03/2020 27/03/2020

Madeira 2 2 1

Aço 3 0 2

Queria que as informações fossem colocadas em apenas duas colunas da seguinte forma:

Tabela 2

Tipo Data

Madeira 25/03/2020

Madeira 26/03/2020

Madeira 27/03/2020

Aço 25/03/2020

Aço 27/03/2020

E tipo, toda vez que fosse acrescentado ou diminuído quantidade nas celulas da Tabela1, também alterassem a formatação da Tabela 2. Desde já agradeço o apoio de vcs.

Midori · 15 de junho de 2020

@DaviCN A macro pega a Tabela 1 em A1:D3 e cria a segunda no formato a partir de A6. Faça um teste e adapte conforme seu caso.

Sub Macro()
    Dim T, N    As Range
    Dim L       As Integer
    
    L = 6
    
    For Each T In Range("A2:A3")
        For Each N In T.Offset(0, 1).Resize(1, T.End(xlToRight).Column - 1)
            If N > 0 Then
                Cells(L, 1).Resize(N, 1) = T
                Cells(L, 2).Resize(N, 1) = N.Offset((T.Row - 1) * -1, 0)
                L = L + N
            End If
        Next N
    Next T
End Sub