Excel Uso de uma Fórmula no Excel

[Francisco Moala]

Tenho as tabelas abaixo:

 

 

Minha Tabela.xlsx

[Patropi]

Bom dia @Francisco Moala

 

Se você tivesse anexado uma planilha de exemplo, certamente a tua dúvida já teria sido solucionada.

 

Na imagem não dá para testar formulas, por isso, a maioria do pessoal nem tenta ajudar nos tópicos que não tem planilha anexada.

 

[]s

[Midori]

Veja se a macro ajuda

 

Sub Main()
    Dim R   As Range
    Dim C   As Integer
    Dim L   As Integer
    
    L = 8: C = 2
    
    For Each R In Range("B1:D4")
        If R <> Range("B6") And R <> Range("C6") And R <> Range("D6") Then
            Cells(L, C) = R
            C = C + 1
            If C > 4 Then C = 2: L = L + 1
        End If
    Next R
End Sub