question

Como remover texto de duplicatas em uma celula - Excel?

Abaixo está um exemplo típico do conteúdo de uma das minhas células, 111, 2222, 2222, 1111, 111, 593, 904, 943, 648, 2222, 947, 2079 gostaria de remover entradas duplicadas desta célula (por célula).

Alguém pode me ajudar a resolver esta questão. (isso é possível)?
resposta Resposta
Sua pergunta afirma que os números duplicados são todos contidos em uma única célula, não duplicar valores em uma coluna. Portanto, você não pode 'remover duplicatas' da forma padrão do Excel.

Você pode, no entanto, exclui-los usando um macro ou manipulador de eventos. Isso pressupõe que você deseja remover essas duplicatas 'na célula' de uma coluna de números. A seguir, menos elegante, exemplo irá avaliar a coluna a e remover todos os valores de dentro de cada célula de duplicados.

Copie o manipulador de eventos para a área de transferência (realce todo o código, direito clique e 'cópia'):

ILock público

Private void Worksheet_BeforeDoubleClick(ByVal Target As Range, _

Cancel As Boolean)

Dim i, j, LastRow, LastCol, tVal As String

LastRow = Range ("A" & Rows. Count).End(xlUp).Linha

LastCol = Application.Cells. _

SpecialCells (xlCellTypeLastCell).Coluna

Se iLock = "" Then

Columns("AA:IV").ClearContents

Application.ScreenUpdating = False

Para i = 1 To LastRow

Células (i, "AA").Valor = Cells (i, "A").Valor

Próximo

Para i = 1 To LastRow

Intervalo ("AA" & i).Selecione

Destino Selection.TextToColumns: = Range ("AA" & i), _

DataType: = xlFixedWidth, FieldInfo: = Array (Array (0, 1), _

Matriz (4, 1), Array (10, 1), Array (16, 1), Array (22, 1) _

Matriz (27, 1), Array (32, 1), Array (37, 1), Array (42, 1) _

Matriz (47, 1), Array (53, 1), Array (_

58, 1)), TrailingMinusNumbers: = True

Próximo

Columns("AA:AA").AutoAjuste

Para i = 1 To LastRow

Para j = LastCol 27 passo -1

Se Application.CountIf (Range ("AA", & eu & ":" & "IV" & eu), células (i, j)) > 1 então

Cells (i, j).ClearContents

End If

Próximo

Próximo

LastCol = Application.Cells. _

SpecialCells (xlCellTypeLastCell).Coluna

Para i = 1 To LastRow

Para j = 27 para LastCol

Se as células (i, j).Valor <> "", em seguida,

tVal = tVal & Cells (i, j).Valor & ""

End If

Próximo j

Células (i, "A").Valor = tVal

tVal = ""

Seguinte eu

Columns("AA:IV").ClearContents

iLock = ""

End If

End Sub

Selecione a planilha que contém os números e clique com o botão direito na guia da planilha.

Selecione 'Ver código'.

Cole o código em branco edição área à direita. (Clique em qualquer lugar na área de edição, clique com botão direito e 'Colar').

Feche o VBE e retornar à planilha.

Dê um duplo clique em qualquer célula para remover as duplicatas.

ComentáriosComentários
Acho que a resposta não está correta ou que você gostaria de acrescentar mais
alguma informação? Envie o seu comentário abaixo..

Guest


HTML não é permitido!

Image Code

Digite os caracteres que aparecem na imagem por isso sabemos que você é humano!

Receber um email quando alguém acrescenta outro comentário a esta pergunta


Topo da página


Home  Terms
Copyright © Accelerated Ideas 2005-2024
All rights reserved