Supponendo che ci siano caratteri o parole duplicati in ogni cella e si desidera rimuovere i duplicati e lasciare solo caratteri o parole univoci. Come hai potuto risolvere questo problema in Excel?
Rimuovi i caratteri duplicati della stringa di testo con la funzione definita dall'utente
Rimuovi le parole duplicate separate dalla punteggiatura con la funzione definita dall'utente
Rimuovi i caratteri duplicati della stringa di testo con la funzione definita dall'utenteSe si dispone di un elenco di stringhe di testo, ora è necessario rimuovere i caratteri duplicati come mostrato nella seguente schermata. Qui posso parlare di un codice VBA per affrontarlo.
1. Tieni premuto il ALT + F11 chiavi per aprire il Finestra di Microsoft Visual Basic, Applications Edition.
2. Clic inserire > Moduloe incolla il codice seguente nel file Finestra del modulo.
Codice VBA: rimuove i caratteri duplicati della stringa di testo in una cella
Function RemoveDupes1(pWorkRng As Range) As String
'Updateby Extendoffice
Dim xValue As String
Dim xChar As String
Dim xOutValue As String
Set xDic = CreateObject("Scripting.Dictionary")
xValue = pWorkRng.Value
For i = 1 To VBA.Len(xValue)
xChar = VBA.Mid(xValue, i, 1)
If xDic.Exists(xChar) Then
Else
xDic(xChar) = ""
xOutValue = xOutValue & xChar
End If
Next
RemoveDupes1 = xOutValue
End Function
3. Quindi salva e chiudi questo codice, torna al foglio di lavoro e inserisci questa formula = removedupes1 (A2) (A2 è la cella di dati da cui vuoi rimuovere i duplicati) in una cella vuota oltre ai tuoi dati, vedi screenshot:
4. Quindi trascina il quadratino di riempimento sulle celle dell'intervallo in cui desideri applicare questa formula, tutti i caratteri duplicati sono stati rimossi immediatamente da ogni cella.
Rimuovi le parole duplicate separate dalla punteggiatura con la funzione definita dall'utenteSe in una cella ci sono alcune parole separate da determinati segni di punteggiatura, puoi anche rimuovere le parole duplicate come preferisci. Si prega di fare con i seguenti passaggi:
1. Tenere premuto il tasto ALT + F11 chiavi per aprire il Finestra di Microsoft Visual Basic, Applications Edition.
2. Clic inserire > Moduloe incolla il codice seguente nel file Finestra del modulo.
Codice VBA: rimuove le parole duplicate separate dalla punteggiatura di una cella
Function RemoveDupes2(txt As String, Optional delim As String = " ") As String
Dim x
'Updateby Extendoffice
With CreateObject("Scripting.Dictionary")
.CompareMode = vbTextCompare
For Each x In Split(txt, delim)
If Trim(x) <> "" And Not .exists(Trim(x)) Then .Add Trim(x), Nothing
Next
If .Count > 0 Then RemoveDupes2 = Join(.keys, delim)
End With
End Function
3. Quindi salva e chiudi questo codice, torna al foglio di lavoro e inserisci questa formula = RemoveDupes2 (A2, ",") in una cella vuota accanto ai tuoi dati, vedi screenshot:
4. Quindi copia la formula nelle celle necessarie e tutte le parole duplicate sono state rimosse da ogni cella. Vedi screenshot:
Osservazioni:: Nella formula sopra, A2 indica la cella che desideri utilizzare e la virgola (,) sta per il segno di punteggiatura che separa le parole in una cella, puoi cambiarlo con qualsiasi altra punteggiatura secondo le tue necessità.
