Excel - unir colunas em uma unica coluna

[Eng. Alison]

Boa noite pessoal,

 

Tenho um grande problema aqui que não consigo resolver.

Tenho uma matriz de dados que quero colocar em uma unica coluna. Além disso na matriz tem células vazias e também há dados repetidos e quando for pra passar pra uma unica coluna queira que esses espaços em branco e os dados repetidos fossem desconsiderados.

Comecei agora e por conta própria no VBA, já fiz muita coisa na planilha mas esse problema ai não consegui sair do lugar.

Se alguém puder dar uma ajuda ai eu agradeço.

 

Segue uma planilha exemplo do que eu preciso, depois eu adapto pra planilha real porque é muita cisa que vai ter depois. 

Tem que pegar da aba SERVIÇOS e mandar para a coluna A na aba MATERIAIS.

 

Desde já agradeço.

 

Exemplo.xlsx

[Visitante]

Olá, Alison.

Veja se o código abaixo pode te ajudar.

Sub ReplicaDados()
 Dim LRo As Long, LRd As Long, k As Long, m As Long
  LRo = ActiveSheet.UsedRange.Find(what:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
  LRd = Sheets("Mateirais").Cells(Rows.Count, 1).End(3).Row
  For k = 5 To LRo
   For m = 5 To 11 Step 3
    If Cells(k, m) <> "" And Application.CountIf(Sheets("Mateirais").[A:A], Cells(k, m)) = 0 Then
     Sheets("Mateirais").Cells(LRd + 1, 1) = Cells(k, m)
     Sheets("Mateirais").Cells(LRd + 1, 2) = Cells(k, m).Offset(, 2)
     LRd = LRd + 1
    End If
   Next m
  Next k
End Sub

obs.
1. no seu arquivo o nome da planilha é "Mateirais" então se você for testar em outro arquivo cujo nome da planilha seja "Materiais" altere no código (4 ocorrências)
2. a unidade de medida do sarrafo você colocou em uma planilha "m³" e na outra "m"
3. antes de rodar o código limpe a coluna 'A' da planilha "Mateirais" e deixe nela somente o cabeçalho

4. ao rodar o código a planilha "Serviços" deverá ser a planilha ativa

[Eng. Alison]

Funcionou certinho.

Obrigado, me ajudou muito.