Página 1 de 1

* Excluir números repetidos

Enviado: 31 Jul 2019 às 14:58
por Levishiroma
Boa tarde amigos do Fórum, tudo bom?

Peço a ajuda dos Nobres Amigos para uma formula que exclua números repetidos de um determinado grupo,
e apresente os números em outro local procurando manter a formação do grupo anterior.

segue planilha de exemplo,

desde já meu muito obrigado,
fiquem com Deus

Re: * Excluir números repetidos

Enviado: 31 Jul 2019 às 19:39
por osvaldomp
Se você quiser experimentar, segue uma solução via macro.
Código: Selecionar todos
Sub ExcluiRepetidos()
 Dim k As Long, i As Long
  For i = 11 To 5 Step -1
   For k = 23 To 4 Step -1
    If Application.CountIf([D5:W11], Cells(i, k)) > 1 Then Cells(i, k) = ""
   Next k
  Next i
  [D4:W11].Copy [D14]
End Sub

* Excluir números repetidos

Enviado: 31 Jul 2019 às 21:15
por Levishiroma
Olá Osvaldo, obrigado pelo atendimento,
é quase isso, só preciso que no grupo de cima, mantenha como está, com todos os números repetidos,
o grupo que formou em baixo está perfeito

Re: * Excluir números repetidos

Enviado: 31 Jul 2019 às 21:36
por osvaldomp
Olá, Levi.
Entendi.

Experimente este no lugar do anterior.
Código: Selecionar todos
Sub ExcluiRepetidos()
 Dim k As Long, i As Long
  Application.ScreenUpdating = False
  [D5:W11].Copy [D14]
  For i = 20 To 14 Step -1
   For k = 23 To 4 Step -1
    If Application.CountIf([D14:W20], Cells(i, k)) > 1 Then Cells(i, k) = ""
   Next k
  Next i
  Application.ScreenUpdating = True
End Sub

* Excluir números repetidos

Enviado: 31 Jul 2019 às 21:50
por Levishiroma
Excelente, mais uma vez muito obrigado por me atender.
ótima noite, Deus te abençoe.