Excel elimină caractere, cuvinte, numere din șirurile de text

Să presupunem că aveți o listă lungă de șiruri de text care conțin caractere, numere sau alte simboluri specifice. În anumite cazuri, poate fi necesar să eliminați unele caractere în funcție de poziție, cum ar fi din dreapta, stânga sau mijloc din șirurile de text, sau să ștergeți unele caractere, numere nedorite din lista de șiruri. Găsirea soluțiilor una câte una vă va da bătăi de cap, acest tutorial adună tot felul de metode de eliminare a caracterelor, cuvintelor sau numerelor din Excel.

---

Eliminați caracterele din stânga, dreapta sau mijlocul șirurilor de text

Poate fi o sarcină comună pentru cei mai mulți dintre noi să eliminăm unele caractere din stânga, dreapta sau mijlocul șirurilor de text din foile de lucru Excel. Această secțiune va prezenta câteva trucuri rapide și ușoare pentru rezolvarea acestei sarcini.

1.1 Eliminați primele n caractere din șirurile de text

Dacă trebuie să eliminați primele n caractere dintr-o listă de șiruri de text, următoarele metode vă pot ajuta.

 Prin utilizarea formulelor

În mod normal, pentru a șterge caracterele de la începutul șirurilor de text, puteți utiliza fie funcția REPLACE, fie o combinație de funcții RIGHT și LEN.

Funcția REPLACE pentru a elimina primele N caractere:

• şir: șirul de text din care doriți să eliminați caracterele;
• num_care: numărul de caractere pe care doriți să le eliminați.

De exemplu, pentru a elimina primele 2 caractere din celule, vă rugăm să utilizați formula de mai jos, apoi trageți mânerul de umplere pentru a copia formula în alte celule, vedeți captura de ecran:

Funcțiile RIGHT și LEN pentru a elimina primele N caractere:

• şir: șirul de text din care doriți să eliminați caracterele;
• num_care: numărul de caractere pe care doriți să le eliminați.

Pentru a elimina primele 2 caractere din celule, aplicați următoarea formulă:

---

 Prin utilizarea funcției definite de utilizator

Pentru a elimina primele n caractere din celule, puteți crea și o funcție definită de utilizator pentru a rezolva această sarcină. Vă rugăm să urmați următorii pași:

1. Țineți apăsat butonul Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în fereastra modulului.

Cod VBA: eliminați primele n caractere din șirurile de text

Function removeFirstx(rng As String, cnt As Long)
'Updateby Extendoffice
removeFirstx = Right(rng, Len(rng) - cnt)
End Function

3. Apoi reveniți la foaia de lucru, apoi introduceți această formulă: = removefirstx (A4,2) într-o celulă goală, apoi glisați mânerul de umplere în jos pentru a obține rezultatele după cum aveți nevoie, vedeți captura de ecran:

notițe: În această formulă: A4 este celula din care doriți să eliminați caracterele; Numarul 2 indică numărul de caractere pe care doriți să le eliminați de la începutul șirului de text.

---

1.2 Eliminați ultimele n caractere din șirurile de text

Pentru a elimina un anumit număr de caractere din partea dreaptă a șirurilor de text, puteți utiliza și o formulă sau o funcție definită de utilizator.

 Prin utilizarea formulei

Pentru a elimina ultimele n caractere din șirurile de text, puteți utiliza o formulă bazată pe funcțiile LEFT și LEN.

Funcțiile LEFT și LEN pentru a elimina ultimele N caractere:

• şir: șirul de text din care doriți să eliminați caracterele;
• num_care: numărul de caractere pe care doriți să le eliminați.

Pentru a șterge 3 caractere de la sfârșitul șirurilor de text, vă rugăm să utilizați această formulă și apoi trageți mânerul de umplere pentru a copia formula în alte celule, vedeți captura de ecran:

---

 Prin utilizarea funcției definite de utilizator

Aici, o funcție definită de utilizator vă poate ajuta și să eliminați ultimele n caractere dintr-o listă de celule, vă rugăm să procedați astfel:

1. Țineți apăsat butonul Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în fereastra modulului.

Cod VBA: eliminați ultimele n caractere din șirurile de text

Function removeLastx(rng As String, cnt As Long)
'Updateby Extendoffice
removeLastx = Left(rng, Len(rng) - cnt)
End Function

3. Apoi reveniți la foaia de lucru și introduceți această formulă: = removelastx (A4,3) într-o celulă goală, apoi glisați mânerul de umplere în jos pentru a obține rezultatele după cum aveți nevoie, vedeți captura de ecran:

notițe: În această formulă: A4 este celula din care doriți să eliminați caracterele; Numarul 3 indică numărul de caractere pe care doriți să le eliminați de la sfârșitul șirului de text.

---

1.3 Eliminați primul, ultimul n caractere sau anumite caractere de poziție folosind o funcție puternică

Poate fi dureros să vă amintiți diverse formule, să eliminați caractere din stânga, dreapta sau o anumită poziție a șirurilor de text, Kutools pentru Excel acceptă o caracteristică puternică - Eliminați după poziție. Cu acest instrument mic, puteți gestiona aceste sarcini cu câteva clicuri fără a vă aminti nicio formulă.

După instalare Kutools pentru Excel, vă rugăm să faceți acest lucru:

1. Selectați celulele pe care doriți să le eliminați caracterele, apoi faceți clic Kutools > Text > Eliminați după poziție, vezi captura de ecran:

2. În Eliminați după poziție caseta de dialog, vă rugăm să efectuați următoarele operații:

2.1 Eliminați primele n caractere din celule:

• In Numere caseta text, introduceți numărul de caractere pe care doriți să le eliminați din șiruri. În acest exemplu, voi elimina primele 2 caractere.
• Selectați De la stânga opțiune în Poziţie secţiune.
• Apoi apasa Ok or Aplică butonul pentru a obține rezultatul, așa cum se arată mai jos.

2.2 Eliminați ultimele n caractere din celule:

• In Numere caseta text, introduceți numărul de caractere pe care doriți să le eliminați din șiruri. În acest exemplu, voi elimina ultimele 3 caractere.
• Selectați De la dreapta opțiune în Poziţie secţiune.
• Apoi apasa Ok or Aplică butonul pentru a obține rezultatul, așa cum se arată mai jos.

2.3 Eliminați n caractere din poziția specifică a celulelor:

Dacă trebuie să eliminați un anumit număr de caractere dintr-o anumită poziție a șirurilor de text, de exemplu, eliminarea a 3 caractere începe de la al treilea caracter al șirurilor.

• In Numere caseta text, introduceți numărul de caractere pe care doriți să le eliminați din șiruri. În acest exemplu, voi elimina 3 caractere dintr-o anumită poziție.
• Selectați Specifica opțiunea și introduceți numărul de la care doriți să eliminați caracterele începând din caseta text a Poziţie secțiune. Aici, voi elimina personaje din al treilea caracter.
• Apoi apasa Ok or Aplică butonul pentru a obține rezultatul, așa cum se arată mai jos.

Descărcați și proba gratuită Kutools pentru Excel acum!

---

1.4 Eliminați primele n și ultimele n caractere din șirurile de text cu formulă

Când trebuie să eliminați unele caractere de pe ambele părți ale șirurilor de text în Excel, puteți combina funcțiile MID și LEN pentru a crea o formulă pentru a face față acestei sarcini.

• şir: șirul de text din care doriți să eliminați caracterele;
• caractere_stânga: numărul de caractere de eliminat din stânga;
• caractere_dreapte: numărul de caractere de eliminat din dreapta.

De exemplu, trebuie să eliminați primele 7 caractere și ultimele 5 caractere din șirurile de text în același timp, vă rugăm să introduceți următoarea formulă într-o celulă goală:

notițe: În această formulă: A4 este celula din care doriți să eliminați caracterele; Numarul 7 este numărul de caractere pe care doriți să le eliminați din partea stângă; Numarul 5 este numărul de caractere pe care doriți să le eliminați din partea dreaptă.

Apoi, trageți mânerul de umplere în jos până unde doriți să aplicați această formulă și veți obține rezultatul, așa cum se arată mai jos:

---

Eliminați caracterele nedorite/speciale din șirurile de text

Când importați date din altă parte în Excel, o mulțime de caractere speciale sau nedorite pot fi lipite în foaia de lucru. Pentru a elimina aceste caractere nedorite, cum ar fi #@$%^&, spații, numere, numere nenumerice, întreruperi de linie etc., această secțiune vă va oferi câteva metode utile pentru a vă ajuta.

2.1 Eliminați unele caractere speciale din șirurile de text

Dacă există unele caractere speciale, cum ar fi %^&*() în șirurile de text, pentru a elimina acest tip de caractere, puteți aplica cele trei trucuri de mai jos.

 Eliminați mai multe caractere speciale din șirurile de text cu funcția SUBSTITUTE

În mod normal, în Excel, puteți imbrica mai multe funcții SUBSTITUTE pentru a înlocui fiecare caracter specific cu nimic, sintaxa generică este:

• șir_celulă: Celula conține șirul de text din care doriți să eliminați caracterele speciale;
• char1, char2, char3: caracterele nedorite pe care doriți să le eliminați.

Acum, copiați sau introduceți formula de mai jos într-o celulă goală:

Apoi, trageți mânerul de umplere în jos până la celulele în care doriți să aplicați această formulă și toate caracterele nedorite pe care le-ați specificat vor fi eliminate simultan, vedeți captura de ecran:

sfaturi: Dacă există mai multe caractere pe care doriți să le eliminați, trebuie doar să plasați mai multe funcții SUBSTITUTE în cadrul formulei.

---

 Eliminați mai multe caractere speciale din șirurile de text cu funcția definită de utilizator

Funcțiile SUBSTITUTE imbricate de mai sus funcționează bine dacă sunt puține caractere speciale de eliminat, dar dacă aveți zeci de caractere de eliminat, formula va deveni prea lungă și dificil de gestionat. În acest caz, următoarea funcție definită de utilizator vă poate ajuta să finalizați această sarcină rapid și ușor.

1. Țineți apăsat butonul Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Module, și inserați următorul cod în fereastra Modulului.

Cod VBA: eliminați mai multe caractere speciale din șirurile de text

Function RemoveUnwantedChars(Str As String, xchars As String)
'Updateby Extendoffice
    For Index = 1 To Len(xchars)
        Str = Replace(Str, Mid(xchars, Index, 1), "")
    Next
    RemoveUnwantedChars = Str
End Function

3. Apoi, închideți fereastra de cod și reveniți la foaia de lucru, introduceți această formulă =Eliminați caracterele nedorite (A2, $D$2) într-o celulă goală unde să scoateți rezultatul, apoi trageți mânerul de umplere în jos pentru a obține rezultatele după cum aveți nevoie, vedeți captura de ecran:

notițe: În formula de mai sus: A2 este celula din care doriți să eliminați caracterele; $ D $ 2 conține caracterele speciale pe care doriți să le eliminați (puteți tasta orice alte caractere speciale de care aveți nevoie).

---

 Eliminați mai multe caractere speciale din șirurile de text cu o caracteristică uimitoare

Dacă ați instalat Kutools pentru Excel, Cu său Eliminați caractere funcție, puteți elimina tot felul de caractere, cum ar fi caractere numerice, caractere alfa, caractere care nu se imprimă... dintr-o listă de celule după cum aveți nevoie.

După instalare Kutools pentru Excel, vă rugăm să faceți acest lucru:

1. Selectați intervalul de celule din care doriți să eliminați caracterele speciale, apoi faceți clic Kutools > Text > Eliminați caractere, vezi captura de ecran:

2. În Eliminați caractere căsuță de dialog:

• Verifica pachet personalizat opțiune în cadrul Eliminați caractere secţiune.
• Și apoi introduceți caracterele speciale în caseta de text pe care doriți să le eliminați.
• Apoi apasa Ok or Aplică butonul pentru a elimina dintr-o dată caracterele specificate. Vedeți captura de ecran:

Descărcați și proba gratuită Kutools pentru Excel acum!

---

2.2 Eliminați toate numerele din șirurile de text

Dacă aveți o listă de șiruri de text care se amestecă cu cifre, litere și caractere speciale, iar acum, doriți doar să eliminați toate numerele și să păstrați alte caractere. Această secțiune vă va oferi câteva modalități utile de a vă ajuta.

 Eliminați numerele din șirurile de text cu funcția SUBSTITUTE

În Excel, funcția SUBSTITUTE imbricată poate ajuta la înlocuirea tuturor numerelor cu nimic, așa că puteți folosi formula de mai jos pentru a elimina toate numerele din celule:

Apoi trageți mânerul de umplere în jos până la celulele în care doriți să aplicați această formulă și toate numerele vor fi șterse din lista de șiruri de text, vedeți captura de ecran:

---

 Eliminați numerele din șirurile de text cu funcția TEXTJOIN

Dacă aveți Excel 2019, 2021 sau 365, noua funcție TEXTJOIN vă poate ajuta și la eliminarea numerelor din șirurile de text.

Vă rugăm să copiați următoarea formulă într-o celulă goală, apoi apăsați tastele Ctrl + Shift + Enter împreună pentru a obține primul rezultat:

Și apoi copiați formula în alte celule de mai jos unde doriți să aplicați această formulă, vedeți captura de ecran:

notițe: Acest TEXTJOIN este disponibil numai în Excel 2019, 2021 și Office 365.

---

 Eliminați numerele din șirurile de text cu funcția definită de utilizator

Pe lângă cele două formule de mai sus, o funcție definită de utilizator vă poate face și o favoare, vă rugăm să urmați următorii pași:

1. Țineți apăsat butonul Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Module, și inserați următorul cod în fereastra Modulului.

Cod VBA: eliminați numerele din șirurile de text

Function RemoveNumbers(Txt As String) As String
'Updateby Extendoffice
With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = "[0-9]"
RemoveNumbers = .Replace(Txt, "")
End With
End Function

3. Apoi, închideți și părăsiți fereastra de cod, reveniți la foaia de lucru și introduceți această formulă: = RemoveNumbers (A2) într-o celulă goală, apoi trageți mânerul de umplere în jos până la celulele în care doriți să aplicați această formulă, vedeți captura de ecran:

---

 Eliminați numerele din șirurile de text cu o opțiune la îndemână

Dacă v-ați săturat de formulele complicate, acum, permiteți-mi să vă arăt un instrument ușor - Kutools pentru Excel'S Eliminați caractere. Cu această caracteristică la îndemână, puteți îndeplini această sarcină cu doar câteva clicuri.

După instalare Kutools pentru Excel, vă rugăm să faceți acest lucru:

1. Selectați intervalul de celule în care doriți să eliminați numerele, apoi faceți clic Kutools > Text > Eliminați caractere.

2. În Eliminați caractere caseta de dialog, vă rugăm să efectuați următoarele operații:

• Verifica Numeric opțiune în cadrul Eliminați caractere secţiune.
• Apoi apasa Ok or Aplică butonul pentru a elimina imediat numerele. Vedeți captura de ecran:

Descărcați și proba gratuită Kutools pentru Excel acum!

---

2.3 Eliminați caracterele nenumerice din șirurile de text

Pentru a elimina toate caracterele nenumerice și pentru a păstra doar numerele din șirurile de text, această secțiune va vorbi despre câteva modalități de rezolvare a acestei sarcini în Excel.

 Eliminați caracterele nenumerice din șirurile de text cu formulă în Excel 2016 și versiuni anterioare

Dacă utilizați Excel 2016 sau versiuni anterioare, ar trebui să aplicați o formulă complexă pentru a realiza acest job, vă rugăm să copiați sau să introduceți formula de mai jos într-o celulă goală:

Și apoi copiați formula în alte celule de mai jos unde doriți să aplicați această formulă, vedeți captura de ecran:

notițe: Dacă numerele dintr-un șir de text încep cu 0, 0 se va pierde.

---

 Eliminați caracterele nenumerice din șirurile de text cu funcția TEXTJOIN în Excel 2019, 2021, 365

Formula de mai sus poate fi prea greu de înțeles pentru majoritatea dintre noi. Dacă aveți Excel 2019, 2021 sau 365, există o formulă bună care vă poate ajuta.

Vă rugăm să copiați sau să introduceți următoarea formulă într-o celulă goală și apăsați Ctrl + Shift + Enter cheile împreună pentru a obține primul rezultat corect:

Apoi, trageți mânerul de umplere în jos până la celulele în care veți aplica această formulă și veți obține rezultatul ca în captura de ecran prezentată mai jos:

notițe: Cu această formulă, puteți vedea că primele 0 vor fi păstrate, deoarece numerele sunt returnate ca text.

---

 Eliminați caracterele nenumerice din șirurile de text cu funcția definită de utilizator

Desigur, vă puteți crea și propria funcție definită de utilizator cu o sintaxă mai simplă, vă rugăm să procedați astfel:

1. Țineți apăsat butonul Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Module, și inserați următorul cod în fereastra Modulului.

Cod VBA: eliminați caracterele nenumerice din șirurile de text

Function Removenonnumeric(str As String) As String
'Updateby Extendoffice
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "[^0-9]"
        Removenonnumeric = .Replace(str, "")
    End With
End Function

3. Apoi, închideți și părăsiți fereastra de cod, reveniți la foaia de lucru și introduceți această formulă: =Eliminare numerică(A2) într-o celulă goală, apoi trageți mânerul de umplere în jos până la celulele în care doriți să aplicați această formulă, numai numerele vor fi extrase așa cum se arată mai jos:

---

 Eliminați caracterele nenumerice din șirurile de text cu o caracteristică simplă

Pentru a șterge direct caractere nenumerice dintr-o serie de celule, Kutools pentru Excel'S Eliminați caractere utilitarul poate face acest lucru cu doar câteva clicuri.

După instalare Kutools pentru Excel, vă rugăm să faceți acest lucru:

1. Selectați intervalul de celule din care doriți să eliminați caracterele nenumerice, apoi faceți clic Kutools > Text > Eliminați caractere.

2. În Eliminați caractere caseta de dialog, setați următoarele operații:

• Verifica Nenumerice opțiune în cadrul Eliminați caractere secţiune.
• Apoi apasa Ok or Aplică butonul pentru a elimina imediat toate caracterele nenumerice. Vedeți captura de ecran:

Descărcați și proba gratuită Kutools pentru Excel acum!

---

2.4 Separați textul și numerele dintr-o celulă în două coloane

Uneori, poate doriți să extrageți textul și numerele din șirurile de text în două coloane separate, cu ajutorul următoarelor metode, puteți finaliza această sarcină rapid și ușor.

 Separați textul și numerele dintr-o celulă în două coloane cu funcția definită de utilizator

Folosind următoarea funcție definită de utilizator, puteți extrage textul și numerele simultan, vă rugăm să urmați pașii de mai jos:

1. Țineți apăsat butonul Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Module, și inserați următorul cod în fereastra Modulului.

Cod VBA: Separați textul și numerele din șirurile de text în două coloane

Function SplitText(pWorkRng As Range, pIsNumber As Boolean) As String
'Updateby Extendoffice
Dim xLen As Long
Dim xStr As String
xLen = VBA.Len(pWorkRng.Value)
For i = 1 To xLen
    xStr = VBA.Mid(pWorkRng.Value, i, 1)
    If ((VBA.IsNumeric(xStr) And pIsNumber) Or (Not (VBA.IsNumeric(xStr)) And Not (pIsNumber))) Then
        SplitText = SplitText + xStr
    End If
Next
End Function

3. Apoi, închideți și părăsiți fereastra de cod, reveniți la foaia de lucru și introduceți această formulă: = SplitText (A2, FALSE) într-o celulă goală, apoi trageți mânerul de umplere în jos până la celulele în care doriți să completați această formulă pentru a obține tot textul, vedeți captura de ecran:

4. Și apoi, continuați să introduceți această formulă: = SplitText (A2, TRUE) într-o altă celulă și trageți mânerul de umplere în jos până la celulele pe care doriți să completați această formulă pentru a obține numerele, vedeți captura de ecran:

---

 Separați textul și numerele dintr-o celulă în două coloane cu o funcție simplă

Dacă aveţi Kutools pentru Excel, ict Celule divizate utilitarul vă poate ajuta să împărțiți celulele în mai multe coloane sau rânduri pe baza oricăror separatori, lățime specificată sau text și număr.

După instalare Kutools pentru Excel, vă rugăm să faceți acest lucru:

1. Selectați intervalul de celule pe care doriți să îl împărțiți, apoi faceți clic Kutools > Merge & Split > Celule divizate, vezi captura de ecran:

2. În Celule divizate fereastră de dialog, selectați Împărțiți în coloane opțiune în cadrul Tip secțiune, apoi verificați Text și număr de la Împărțit de secțiune, vezi captura de ecran:

3. Apoi apasa Ok butonul, și altul Celule divizate va apărea caseta de dialog, selectați o celulă pentru a scoate textul și numerele separate, apoi faceți clic pe OK buton. Acum, puteți vedea că textul și numerele din celulele selectate sunt împărțite în două coloane simultan, așa cum se arată mai jos:

Descărcați și proba gratuită Kutools pentru Excel acum!

---

2.5 Eliminați caracterele de întrerupere de linie din șirurile de text

O ruptură de linie este ceva care vă permite să aveți mai multe linii în aceeași celulă în Excel. Uneori, atunci când copiați date de pe site sau separați conținutul celulei dvs Alt + Introducere tastele manual, veți obține întreruperi de linie sau întoarceri de cărucior. În anumite cazuri, este posibil să doriți să ștergeți întreruperile de linie pentru a face conținutul celulei pe o linie, așa cum se arată mai jos. Aici, voi prezenta câteva modalități de rezolvare a acestei sarcini în Excel.

 Eliminați caracterele de întrerupere de linie din șirurile de text cu funcția Găsiți și înlocuiți

În Excel, puteți utiliza fișierul Găsiți și înlocuiți pentru a elimina rupturile de linie, procedați astfel:

1. Selectați intervalul de date din care doriți să eliminați întreruperile de linie.

2. Apoi apasa Acasă > Găsiți și selectați > Înlocui (sau apăsați Ctrl + H chei) pentru a merge la Găsiți și înlocuiți caseta de dialog, vezi captura de ecran:

3. În pop-out Găsiți și înlocuiți caseta de dialog, vă rugăm să efectuați următoarele operații:

• Plasați cursorul în Gaseste ce câmp și apăsați Ctrl + J pe tastatură, este posibil să nu vedeți nimic, dar caracterul de întrerupere de linie a fost inserat.
• În Înlocuiți cu câmp, lăsați acest câmp gol pentru a șterge doar întreruperile de linie sau apăsați tasta Spațiu bar o dată pentru a înlocui rupturile de linie cu spații libere.

4. Apoi apasa Înlocuiește-le pe toate butonul, toate rupturile de linie din celulele selectate vor fi șterse sau înlocuite cu spații libere deodată. Vedeți captura de ecran:

---

 Eliminați caracterele de întrerupere de linie din șirurile de text cu funcția SUBSTITUTE

De asemenea, puteți crea o formulă bazată pe funcțiile SUBSTITUTE și CHAR pentru a elimina întreruperile de rând din șirurile de text.

Vă rugăm să aplicați formula de mai jos pentru a obține rezultatul:

sfaturi: Funcția SUBSTITUTE găsește și înlocuiește caracterul CHAR(10) care reprezintă caracterul de întrerupere de linie cu nimic. Dacă doriți ca rezultatul să fie separat prin virgulă și spațiu, puteți utiliza formula de mai jos:

---

 Eliminați caracterele de întrerupere de linie din șirurile de text cu cod VBA

Dacă vă simțiți confortabil să utilizați codul VBA, aici vă oferă și un cod, vă rugăm să urmați următorii pași:

1. Țineți apăsat butonul Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Module, și inserați următorul cod în fereastra Modulului.

Cod VBA: eliminați întreruperile de rând din șirurile de text

Sub RemoveCarriage()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.Value = Replace(Rng.Value, Chr(10), "")
Next
End Sub

3. Apoi, apăsați F5 tasta pentru a rula acest cod și va apărea o casetă de prompt, selectați intervalul pe care doriți să eliminați întreruperile de linie, vedeți captura de ecran:

4. Apoi, faceți clic OK butonul, toate rupturile de linie vor fi șterse din intervalul de date selectat.

---

 Eliminați caracterele de întrerupere de linie din șirurile de text cu o opțiune inteligentă

Aici, Kutools pentru Excel'S Eliminați caractere De asemenea, funcția vă poate ajuta să eliminați cu ușurință întreruperile de linie.

După instalare Kutools pentru Excel, vă rugăm să faceți acest lucru:

1. Selectați intervalul de celule în care doriți să eliminați întreruperile de linie, apoi faceți clic Kutools > Text > Eliminați caractere.

2. În Eliminați caractere caseta de dialog, setați următoarele operații:

• Verifica Neimprimare opțiune în cadrul Eliminați caractere secţiune.
• Apoi apasa Ok or Aplică butonul pentru a elimina toate întreruperile de linie din intervalul de date selectat. Vedeți captura de ecran:

Descărcați și proba gratuită Kutools pentru Excel acum!

---

2.6 Eliminați spațiile (întâlnire, finală, suplimentare sau toate spațiile) din șirurile de text

Copierea și lipirea textului dintr-o sursă externă într-o foaie de lucru Excel aduce adesea niște spații albe enervante rămase, va fi plictisitor să eliminați manual spațiile de început, de final sau alte spații suplimentare. Din fericire, Excel oferă câteva trucuri simple pentru a face față acestei sarcini.

 Eliminați spațiile suplimentare (întâlnire, finală, exces) din șirurile de text cu funcția TRIM

În Excel, pentru a șterge spațiile de început, de urmă și suplimentare din șirurile de text, funcția simplă TRIM vă poate ajuta. Această funcție șterge toate spațiile, cu excepția spațiilor unice dintre cuvinte.

Vă rugăm să introduceți formula de mai jos într-o celulă goală:

Și apoi trageți mânerul de umplere în jos pentru a copia formula pentru alte celule, acum puteți vedea toate spațiile de început, de sfârșit și spațiile suplimentare dintre cuvinte sunt eliminate dintr-o dată din captură de ecran:

---

 Eliminați toate spațiile din șirurile de text

Dacă doriți să eliminați toate spațiile albe din șirurile de text, următoarea funcție SUBSTITUTE și funcția Găsiți și înlocuiți vă pot face o favoare.

Prin utilizarea funcției SUBSTITUTE

Puteți folosi funcția SUBSTITUTE pentru a înlocui toate spațiile cu nimic, vă rugăm să aplicați formula de mai jos într-o celulă goală:

Apoi, trageți mânerul de umplere în jos pentru a copia această formulă în alte celule de care aveți nevoie, iar toate spațiile vor fi șterse așa cum se arată mai jos:

---

Utilizând funcția Găsește și înlocuiește

De fapt, Găsiți și înlocuiți Caracteristica din Excel poate ajuta, de asemenea, să scăpați de toate spațiile din celulele selectate, vă rugăm să urmați următorii pași:

1. Selectați intervalul de date din care doriți să eliminați toate spațiile.

2. Apoi apasa Acasă > Găsiți și selectați > Înlocui (sau apăsați Ctrl + H chei) pentru a merge la Găsiți și înlocuiți caseta de dialog, în fereastra deschisă Găsiți și înlocuiți caseta de dialog, vă rugăm să efectuați operațiunile de mai jos:

• Anunturi Bară spațială în Gaseste ce camp;
• În Înlocuiți cu câmp, lăsați acest câmp necompletat.

3. Apoi, faceți clic Înlocuiește-le pe toate butonul, toate spațiile albe din celulele selectate vor fi șterse simultan. Vedeți captura de ecran:

---

 Eliminați tot felul de spații din șirurile de text cu o funcție puternică

Kutools pentru Excel are o caracteristică puternică - Eliminați spațiile, cu acest utilitar, nu puteți elimina doar spațiile de început, spațiile finale, spațiile în exces, ci și toate spațiile din intervalele selectate într-o singură casetă de dialog, ceea ce vă va îmbunătăți productivitatea muncii.

După instalare Kutools pentru Excel, vă rugăm să faceți acest lucru:

1. Selectați intervalul de date din care veți elimina spațiile, apoi faceți clic Kutools > Text > Eliminați spațiile. Vedeți captura de ecran:

2. În Eliminați spațiile caseta de dialog, selectați un tip de spațiu pe care doriți să îl eliminați din Tip spații:

• Eliminați spațiile de început, vă rugăm să selectați Spații de conducere opțiune;
• Eliminați spațiile din urmă, vă rugăm să selectați Spații de urmărire opțiune;
• Eliminați spațiile de început și spațiile de sfârșit deodată, vă rugăm să selectați Spații de conducere și de urmărire opțiune;
• Eliminați toate spațiile suplimentare, vă rugăm să selectați Toate spațiile în exces opțiune;
• Eliminați toate spațiile, vă rugăm să selectați Toate spațiile opțiune.

3. Apoi apasa Ok or Aplică butonul, veți obține rezultatul de care aveți nevoie.

Descărcați și proba gratuită Kutools pentru Excel acum!

---

Eliminați caractere / text înainte sau după un anumit caracter

În această secțiune, voi introduce câteva operații pentru eliminarea textului sau a caracterelor înainte sau după prima, ultima sau a n-a apariție a unui anumit caracter.

3.1 Eliminați textul înainte sau după primul caracter specific

Dacă doriți să eliminați textul înainte sau după primul caracter specific, cum ar fi spațiu, virgulă dintr-o listă de șiruri de text, așa cum se arată mai jos, aici voi posta două metode pentru dvs.

 Eliminați textul dinaintea primului caracter specific cu o formulă

Pentru a elimina text sau caractere înainte de primul caracter specific, puteți crea o formulă bazată pe funcțiile RIGHT, LEN și FIND, sintaxa generică este:

• celulă: Referința celulei sau șirul de text din care doriți să eliminați textul;
• car de război: Separatorul specific pe care doriți să eliminați textul.

De exemplu, pentru a elimina totul înainte de prima virgulă din șirurile listei, ar trebui să aplicați următoarea formulă într-o celulă goală și apoi să o trageți în jos în celulele de care aveți nevoie, vedeți captura de ecran:

notițe:In formula de mai sus: A2 este celula din care doriți să eliminați textul; , este caracterul specific pe care doriți să eliminați textul pe baza, îl puteți schimba cu orice alte caractere după cum aveți nevoie.

---

 Eliminați textul după primul caracter specific cu o formulă

Pentru a elimina totul după primul caracter specific, puteți folosi funcțiile LEFT și FIND pentru a obține rezultatul, sintaxa generică este:

• celulă: Referința celulei sau șirul de text din care doriți să eliminați textul;
• car de război: Separatorul specific pe care doriți să eliminați textul.

Acum, introduceți formula de mai jos într-o celulă goală, apoi trageți mânerul de umplere în jos către alte celule în care doriți să aplicați această formulă, iar toate caracterele de după prima virgulă vor fi eliminate simultan, vedeți captura de ecran:

---

3.2 Eliminați textul înainte sau după a N-a apariție a unui caracter

Uneori, șirurile de text conțin mai multe instanțe ale unui anumit delimitator, poate doriți să eliminați toate caracterele înainte sau după o anumită instanță, cum ar fi a doua, a treia sau a patra, după cum aveți nevoie. Pentru a face față acestui tip de eliminare, puteți folosi următoarele trucuri:

 Eliminați textul înainte de a-a apariție a unui caracter cu o formulă

Pentru a elimina textul înainte de a N-a apariție a unui anumit caracter, următoarea formulă vă poate ajuta, sintaxa generică este:

• celulă: Referința celulei sau șirul de text din care doriți să eliminați textul;
• car de război: Separatorul specific pe care doriți să eliminați textul pe baza;
• N: Apariția personajului înaintea căreia să se elimine textul.

De exemplu, pentru a elimina totul înainte de a doua virgulă din șirurile de text, ar trebui să aplicați formula de mai jos:

notițe:In formula de mai sus: A2 este celula din care doriți să eliminați textul; , este caracterul specific pe care doriți să eliminați textul pe baza, îl puteți schimba cu orice alte caractere după cum aveți nevoie; 2 indică a n-a virgulă înaintea căreia doriți să eliminați textul.

Apoi, trageți mânerul de umplere pentru a copia formula în alte celule, vedeți captura de ecran:

---

 Eliminați textul după a N-a apariție a unui caracter cu o formulă

Pentru a elimina textul după a N-a apariție a unui anumit separator, funcțiile LEFT, SUBSTITUTE și FIND vă pot face o favoare. Sintaxa generică este:

• celulă: Referința celulei sau șirul de text din care doriți să eliminați textul;
• car de război: Separatorul specific pe care doriți să eliminați textul pe baza;
• N: Apariția personajului după care să eliminați textul.

După ce înțelegeți sintaxa de bază, copiați sau introduceți formula de mai jos într-o celulă goală:

notițe:In formula de mai sus: A2 este celula din care doriți să eliminați textul; , este caracterul specific pe care doriți să eliminați textul pe baza, îl puteți schimba cu orice alte caractere după cum aveți nevoie; 2 indică a n-a virgulă după care doriți să eliminați text.

Apoi, trageți mânerul de umplere pentru a copia formula în alte celule și toate caracterele de după a doua virgulă vor fi șterse simultan, vedeți captura de ecran:

---

 Îndepărtați textul înainte sau după a doua apariție a unui caracter cu funcția definită de utilizator

După cum puteți vedea, puteți rezolva cazurile de eliminare a textului înainte sau după apariția a N-a a unui caracter, folosind funcțiile native ale Excel în diferite combinații. Problema este că trebuie să vă amintiți aceste formule complicate. În acest caz, voi crea o funcție definită de utilizator pentru a acoperi toate scenariile, vă rugăm să procedați astfel:

1. Țineți apăsat butonul Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Module, și inserați următorul cod în fereastra Modulului.

Cod VBA: Eliminați textul înainte sau după a N-a apariție a unui caracter

Function RemoveTextOccurrence(Str As String, Delimiter As String, Occurrence As Integer, IsAfter As Boolean)
Dim xStr As String
Dim xStrLen, xF, xIntStart As Integer
xStr = Str
xStrLen = Len(xStr)
xIntStart = 1
For xF = 1 To Occurrence
xIntStart = InStr(xIntStart + 1, xStr, Delimiter, vbTextCompare)
If (xIntStart = 0) Or (xIntStart < 0) Then
    If IsAfter Then
    RemoveTextOccurrence = xStr
    Else
    RemoveTextOccurrence = ""
    End If
    Exit Function
End If
Next
If IsAfter Then
    RemoveTextOccurrence = Mid(Str, 1, xIntStart - 1)
Else
    RemoveTextOccurrence = Mid(Str, xIntStart + 1)
End If
End Function

3. Apoi, închideți și părăsiți fereastra de cod, reveniți la foaia de lucru, utilizați următoarele formule:

Eliminați textul înainte de a doua apariție a virgulei:

Eliminați textul după a doua apariție a unei virgule

---

3.3 Eliminați text înainte sau după ultima apariție a unui caracter

Dacă trebuie să eliminați tot textul înainte sau după ultimul caracter specific și să lăsați numai subșirurile după sau înainte de ultimul caracter specific, așa cum se arată mai jos, această secțiune va vorbi despre câteva formule pentru rezolvarea acestei probleme.

 Eliminați textul înainte de ultima apariție a unui caracter cu o formulă

Pentru a elimina toate caracterele înainte de ultima apariție a unui caracter, sintaxa generică este:

• celulă: Referința celulei sau șirul de text din care doriți să eliminați textul;
• car de război: Separatorul specific pe care doriți să eliminați textul pe baza;

Acum, dacă trebuie să eliminați textul înainte de ultima apariție a unei virgule, vă rugăm să copiați sau să introduceți formula de mai jos într-o celulă goală:

notițe:In formula de mai sus: A2 este celula din care doriți să eliminați textul; , este caracterul specific pe care doriți să eliminați textul pe baza, îl puteți schimba cu orice alte caractere după cum aveți nevoie.

Apoi, trageți mânerul de umplere pentru a copia formula în alte celule și toate caracterele înainte de ultima virgulă vor fi șterse așa cum se arată mai jos:

---

 Eliminați text după ultima apariție a unui caracter cu formule

Dacă valorile celulelor sunt separate cu un număr variabil de delimitatori, acum, doriți să ștergeți totul după ultima instanță a acelui delimitator, sintaxa generică este:

• celulă: Referința celulei sau șirul de text din care doriți să eliminați textul;
• car de război: Separatorul specific pe care doriți să eliminați textul pe baza;

Copiați sau introduceți formula de mai jos într-o celulă goală, apoi trageți mânerul de umplere în jos pentru a obține alte rezultate de care aveți nevoie, vedeți captura de ecran:

notițe:In formula de mai sus: A2 este celula din care doriți să eliminați textul; , este caracterul specific pe care doriți să eliminați textul pe baza, îl puteți schimba cu orice alte caractere după cum aveți nevoie.

---

3.4 Eliminați textul dintre paranteze

Dacă aveți o listă de șiruri de text cu o parte din caractere incluse în paranteze, acum, vă recomandăm să eliminați toate caracterele din paranteze, inclusiv parantezele, așa cum se arată mai jos. Această secțiune va vorbi despre câteva trucuri pentru rezolvarea acestei sarcini în Excel.

 Eliminați textul dintre paranteze cu funcția Găsiți și înlocuiți

În Excel, funcția încorporată Găsiți și înlocuiți vă poate ajuta să găsiți toate textele dintre paranteze și apoi să le înlocuiți cu nimic. Vă rugăm să faceți așa:

1. Selectați lista de date pentru care doriți să eliminați textele dintre paranteze.

2. Apoi apasa Acasă > Găsiți și selectați > Înlocui (sau apăsați Ctrl + H taste) pentru a accesa caseta de dialog Găsiți și înlocuiți, în Găsiți și înlocuiți caseta de dialog, efectuați următoarele operații:

• În Gaseste ce câmp, tip (*) în caseta de text;
• În Înlocuiți cu câmp, lăsați acest câmp necompletat.

3. Apoi apasa Înlocuiește-le pe toate butonul, toate caracterele din paranteze (inclusiv parantezele) din celulele selectate vor fi șterse simultan. Vedeți captura de ecran:

sfaturi: Găsiți și înlocuiți caracteristica funcționează și pentru două sau mai multe perechi de paranteze din șirurile de text.

---

 Eliminați textul dintre paranteze cu formula

Pe lângă caracteristica Găsiți și înlocuiți, puteți utiliza și o formulă pentru rezolvarea acestei sarcini în Excel, sintaxa generică este:

• a) Sport and Nutrition Awareness Day in Manasia Around XNUMX people from the rural commune Manasia have participated in a sports and healthy nutrition oriented activity in one of the community’s sports ready yards. This activity was meant to gather, mainly, middle-aged people from a Romanian rural community and teach them about the benefits that sports have on both their mental and physical health and on how sporting activities can be used to bring people from a community closer together. Three trainers were made available for this event, so that the participants would get the best possible experience physically and so that they could have the best access possible to correct information and good sports/nutrition practices. b) Sports Awareness Day in Poiana Țapului A group of young participants have taken part in sporting activities meant to teach them about sporting conduct, fairplay, and safe physical activities. The day culminated with a football match. : șirul de text sau referința la celulă din care doriți să eliminați caracterele.

Acum, copiați sau introduceți următoarea formulă într-o celulă goală unde doriți să obțineți rezultatul:

Apoi, trageți mânerul de umplere în jos până la celulele în care doriți să aplicați această formulă și toate textele din paranteze, inclusiv parantezele, vor fi eliminate imediat, vedeți captura de ecran:

sfaturi: Dacă nu există paranteze în valoarea celulei, va fi afișată o eroare după aplicarea formulei de mai sus, pentru a ignora eroarea, vă rugăm să utilizați formula de mai jos:

---

 Eliminați textul dintre paranteze cu funcția definită de utilizator

Formula de mai sus funcționează bine pentru eliminarea textului dintr-o pereche de paranteze, dacă trebuie să eliminați textele din mai multe perechi de paranteze din șirurile de text, formula nu va funcționa corect. Aici, voi crea o funcție simplă definită de utilizator pentru a rezolva această sarcină.

1. Țineți apăsat butonul Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Module, și inserați următorul cod în fereastra Modulului.

Cod VBA: eliminați textul dintre paranteze

Function remtxt(ByVal str As String) As String
'Updateby Extendoffice
  While InStr(str, "(") > 0 And InStr(str, ")") > InStr(str, "(")
    str = Left(str, InStr(str, "(") - 1) & Mid(str, InStr(str, ")") + 1)
  Wend
  remtxt = Trim(str)
End Function

3. Apoi, reveniți la foaia de lucru și introduceți această formulă într-o celulă goală: = remtxt (A2), apoi trageți mânerul de umplere în jos până la celulele în care doriți să aplicați această formulă, toate textele din toate parantezele, inclusiv parantezele, vor fi eliminate așa cum se arată mai jos:

---

Eliminați cuvintele din șirurile de text

În anumite cazuri, este posibil să doriți să eliminați unele cuvinte dintr-o listă de celule, cum ar fi primul sau ultimul cuvânt, cuvintele duplicate dintr-o celulă. Pentru a rezolva aceste tipuri de eliminare, această secțiune va introduce câteva metode pentru dvs.

4.1 Eliminați primul sau ultimul cuvânt din șirul de text

Pentru a elimina primul sau ultimul cuvânt dintr-o listă de șiruri de text, următoarele formule vă pot face o favoare.

 Eliminați primul cuvânt din șirul de text cu formula

Scoateți primele cuvinte dintr-o listă de șiruri de text, puteți crea o formulă simplă bazată pe funcțiile RIGHT, LEN și FIND, sintaxa generică este:

• a) Sport and Nutrition Awareness Day in Manasia Around XNUMX people from the rural commune Manasia have participated in a sports and healthy nutrition oriented activity in one of the community’s sports ready yards. This activity was meant to gather, mainly, middle-aged people from a Romanian rural community and teach them about the benefits that sports have on both their mental and physical health and on how sporting activities can be used to bring people from a community closer together. Three trainers were made available for this event, so that the participants would get the best possible experience physically and so that they could have the best access possible to correct information and good sports/nutrition practices. b) Sports Awareness Day in Poiana Țapului A group of young participants have taken part in sporting activities meant to teach them about sporting conduct, fairplay, and safe physical activities. The day culminated with a football match. : șirul de text sau referința la celulă din care doriți să eliminați primul cuvânt.

Acum, vă rugăm să introduceți sau să copiați următoarea formulă într-o celulă goală:

Apoi, trageți mânerul de umplere în jos pentru a aplica formula altor celule, vedeți captura de ecran:

sfaturi: Dacă trebuie să eliminați primele N cuvinte din celule, vă rugăm să utilizați formula de mai jos:

• a) Sport and Nutrition Awareness Day in Manasia Around XNUMX people from the rural commune Manasia have participated in a sports and healthy nutrition oriented activity in one of the community’s sports ready yards. This activity was meant to gather, mainly, middle-aged people from a Romanian rural community and teach them about the benefits that sports have on both their mental and physical health and on how sporting activities can be used to bring people from a community closer together. Three trainers were made available for this event, so that the participants would get the best possible experience physically and so that they could have the best access possible to correct information and good sports/nutrition practices. b) Sports Awareness Day in Poiana Țapului A group of young participants have taken part in sporting activities meant to teach them about sporting conduct, fairplay, and safe physical activities. The day culminated with a football match. : șirul de text sau referința la celulă din care doriți să eliminați primele n cuvinte;
• N: Indică câte cuvinte doriți să eliminați de la începutul șirului de text.

De exemplu, pentru a elimina primele două cuvinte din celule, copiați sau introduceți formula de mai jos într-o celulă goală pentru a obține rezultatul după cum aveți nevoie, vedeți captura de ecran:

---

  Eliminați ultimul cuvânt din șirul de text cu formula

Pentru a elimina ultimul cuvânt din șirurile de text, puteți folosi și o formulă pentru a rezolva această sarcină, sintaxa generică este:

• a) Sport and Nutrition Awareness Day in Manasia Around XNUMX people from the rural commune Manasia have participated in a sports and healthy nutrition oriented activity in one of the community’s sports ready yards. This activity was meant to gather, mainly, middle-aged people from a Romanian rural community and teach them about the benefits that sports have on both their mental and physical health and on how sporting activities can be used to bring people from a community closer together. Three trainers were made available for this event, so that the participants would get the best possible experience physically and so that they could have the best access possible to correct information and good sports/nutrition practices. b) Sports Awareness Day in Poiana Țapului A group of young participants have taken part in sporting activities meant to teach them about sporting conduct, fairplay, and safe physical activities. The day culminated with a football match. : șirul de text sau referința la celulă din care doriți să eliminați ultimul cuvânt;

Vă rugăm să utilizați formula de mai jos într-o celulă goală, apoi trageți mânerul de umplere în jos pentru a aplica formula altor celule, vedeți captura de ecran:

sfaturi: Pentru a elimina ultimele N cuvinte dintr-o listă de celule, sintaxa generică este:

• a) Sport and Nutrition Awareness Day in Manasia Around XNUMX people from the rural commune Manasia have participated in a sports and healthy nutrition oriented activity in one of the community’s sports ready yards. This activity was meant to gather, mainly, middle-aged people from a Romanian rural community and teach them about the benefits that sports have on both their mental and physical health and on how sporting activities can be used to bring people from a community closer together. Three trainers were made available for this event, so that the participants would get the best possible experience physically and so that they could have the best access possible to correct information and good sports/nutrition practices. b) Sports Awareness Day in Poiana Țapului A group of young participants have taken part in sporting activities meant to teach them about sporting conduct, fairplay, and safe physical activities. The day culminated with a football match. : șirul de text sau referința la celulă din care doriți să eliminați ultimele n cuvinte;
• N: indică numărul de cuvinte pe care doriți să le eliminați de la sfârșitul șirului de text.

Presupunând că, pentru a șterge ultimele 3 cuvinte dintr-o listă de celule, vă rugăm să utilizați formula de mai jos pentru a returna rezultatul, vedeți captura de ecran:

---

4.2 Eliminați caracterele sau cuvintele duplicate dintr-o celulă

Când eliminați valori sau rânduri duplicate, Excel oferă câteva opțiuni diferite, dar, când vine vorba de eliminarea unor caractere sau cuvinte duplicate dintr-o celulă dată, este posibil să nu existe nicio caracteristică încorporată bună pentru rezolvarea acesteia. În acest caz, această secțiune va ajuta la crearea unor funcții definite de utilizator pentru a rezolva acest puzzle.

 Eliminați caracterele duplicate dintr-o celulă utilizând funcția definită de utilizator

Dacă aveți mai multe apariții ale aceluiași caracter într-o celulă, pentru a elimina caracterele duplicate dintr-o celulă și pentru a păstra doar primele apariții, așa cum se arată mai jos, puteți utiliza următoarea funcție definită de utilizator.

1. Țineți apăsat butonul Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Module, și inserați următorul cod în fereastra Modulului.

Cod VBA: Eliminați caracterele duplicate dintr-o celulă

Function RemoveDupeschars(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
RemoveDupeschars = xOutValue
End Function

3. Apoi închideți fereastra de cod, reveniți la foaia de lucru și introduceți această formulă =EliminareDupeschars(A2) într-o celulă goală pe lângă datele dvs., apoi trageți mânerul de umplere peste celulele pe care doriți să le aplicați această formulă, vedeți captura de ecran:

notițe: A2 este celula de date din care doriți să eliminați caracterele duplicate.

varful: Funcția este sensibilă la majuscule, așa că tratează literele mici și mari ca caractere diferite.

---

 Eliminați cuvintele duplicate dintr-o celulă utilizând funcția definită de utilizator

Presupunând că aveți aceleași cuvinte sau șiruri de text într-o celulă și doriți să eliminați toate aceleași cuvinte din celulă, așa cum se arată mai jos. Puteți utiliza următoarea funcție definită de utilizator pentru a rezolva această sarcină în Excel.

1. Țineți apăsat butonul Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Module, și inserați următorul cod în fereastra Modulului.

Cod VBA: Eliminați cuvintele duplicate dintr-o celulă

Function RemoveDupeswords(txt As String, Optional delim As String = " ") As String
'Updateby Extendoffice
    Dim x
    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 RemoveDupeswords = Join(.keys, delim)
    End With
End Function

3. Apoi închideți fereastra de cod, reveniți la foaia de lucru și introduceți această formulă =Eliminați cuvintele dublu (A2,", ") într-o celulă goală pe lângă datele dvs., apoi trageți mânerul de umplere peste celulele pe care doriți să le aplicați această formulă, vedeți captura de ecran:

notițe: A2 este celula din care doriți să ștergeți cuvintele duplicate, precum și virgula și spațiul (, ) sunt delimitatorii pentru a separa șirurile de text, le puteți schimba cu orice alți delimitatori în funcție de nevoile dvs.

varful: Această funcție nu ține seama de majuscule, literele mici și mari sunt tratate ca aceleași caractere.

---

4.3 Tăiați șirul de text la N cuvinte

Dacă aveți un șir de text lung într-o celulă, uneori, poate doriți să tăiați șirul de text la un anumit număr de cuvinte, ceea ce înseamnă să păstrați numai primele n cuvinte și să tăiați celelalte cuvinte. Această secțiune va vorbi despre câteva trucuri pentru a vă ajuta să realizați acest job în Excel.

 Tăiați șirul de text la N cuvinte cu formulă

Pentru a tăia un șir de text în N cuvinte, puteți crea o formulă bazată pe funcțiile LEFT, FIND și SUBSTITUTE, sintaxa generică este:

• a) Sport and Nutrition Awareness Day in Manasia Around XNUMX people from the rural commune Manasia have participated in a sports and healthy nutrition oriented activity in one of the community’s sports ready yards. This activity was meant to gather, mainly, middle-aged people from a Romanian rural community and teach them about the benefits that sports have on both their mental and physical health and on how sporting activities can be used to bring people from a community closer together. Three trainers were made available for this event, so that the participants would get the best possible experience physically and so that they could have the best access possible to correct information and good sports/nutrition practices. b) Sports Awareness Day in Poiana Țapului A group of young participants have taken part in sporting activities meant to teach them about sporting conduct, fairplay, and safe physical activities. The day culminated with a football match. : șirul de text sau referința la celulă pe care doriți să o tăiați;
• N: numărul de cuvinte pe care doriți să le păstrați din partea stângă a șirului de text dat.

Pentru a face față acestei sarcini, copiați sau introduceți formula de mai jos într-o celulă goală:

Apoi, trageți mânerul de umplere în jos pentru a aplica această formulă altor celule, vedeți captura de ecran:

---

 Tăiați șirul de text la N cuvinte cu funcția definită de utilizator

Cu excepția formulei de mai sus, puteți crea și o funcție definită de utilizator pentru rezolvarea acestei sarcini, vă rugăm să procedați astfel:

1. Țineți apăsat butonul Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Module, și inserați următorul cod în fereastra Modulului.

Cod VBA: tăiați șirul de text la N cuvinte

Function GetNWords(StrWords As String, Num_of_Words As Integer) As String
'Updateby Extendoffice
Dim xArr
Dim xRes As String
Dim xF As Integer
xStr = StrWords
If (Num_of_Words < 1) Then
    GetNWords = ""
    Exit Function
End If
xArr = Split(xStr, " ")
xRes = ""
On Error Resume Next
For xF = 0 To UBound(xArr)
    If Trim(xArr(xF)) <> "" Then
    Num_of_Words = Num_of_Words - 1
        If xRes = "" Then
            xRes = Trim(xArr(xF))
        Else
            xRes = xRes & " " & Trim(xArr(xF))
        End If
    End If
    If Num_of_Words = 0 Then Exit For
Next
If Num_of_Words = 0 Then
    GetNWords = xRes & "..."
Else
    GetNWords = xRes & "..."
End If
End Function

3. Apoi închideți și părăsiți fereastra de cod, reveniți la foaia de lucru și introduceți această formulă: =GetNWords(A2,B2) într-o celulă goală, apoi trageți mânerul de umplere în jos pentru a aplica această formulă altor celule, doar primul număr specific de cuvinte este păstrat așa cum se arată mai jos: