Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako odstraniti podvojene znake ali besede v nizu celice?

Če v vsaki celici obstajajo podvojeni znaki ali besede, želite odstraniti dvojnike in pustiti le enolične znake ali besede. Kako lahko rešite to težavo v Excelu?

Odstranite podvojene znake besedilnega niza z uporabniško določeno funkcijo

Odstranite podvojene besede ločene z ločilnimi funkcijami, ki jih definira uporabnik


V stolpcu izberite podvojene vrednosti in jih takoj odstranite:

z Kutools za ExcelJe Izberite podvojene in enolične celice funkcijo, lahko hitro izbirate in označite podvojene ali edinstvene vrednosti iz območja, nato pa jih lahko odstranite ali jih formatirate, ko jih potrebujete.

doc odstranite obe podvojeni 15 15


puščica modra desno mehurček Odstranite podvojene znake besedilnega niza z uporabniško določeno funkcijo


Če imate seznam besedilnih nizov, morate zdaj odstraniti podvojene znake kot prikazani prikaz slike. Tukaj lahko govorim o kodi VBA, da se ukvarjam z njim.

doc-odstranite-podvojene znake-1

1. Drži dol ALT + F11 tipke za odpiranje Okno Microsoft Visual Basic za aplikacije.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Okno modula.

VBA koda: Odstranite podvojene znake besedilnega niza v celici

Function RemoveDupes1(pWorkRng As Range) As String
'Updateby20140924
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. Nato shranite in zaprite to kodo, se vrnite na delovni list in vnesite to formulo = odstrani okna1 (A2) (A2 je podatkovna celica, iz katere želite odstraniti podvojene datoteke) v prazno celico poleg podatkov, glejte sliko zaslona:

doc-odstranite-podvojene znake-1

4. In nato povlecite ročico za polnjenje v polja celic, za katere želite uporabiti to formulo, so bili vsi podvojeni znaki takoj odstranjeni iz vsake celice.

doc-odstranite-podvojene znake-1


puščica modra desno mehurček Odstranite podvojene besede ločene z ločilnimi funkcijami, ki jih definira uporabnik

Če obstaja nekaj besed, ki so ločene z določenimi ločilnimi točkami v celici, lahko tudi odstranite podvojene besede, kot želite. Upoštevajte naslednje korake:

1. Drži dol ALT + F11 tipke za odpiranje Okno Microsoft Visual Basic za aplikacije.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Okno modula.

VBA koda: Odstranite podvojene besede, ločene s ločilom celice

Function RemoveDupes2(txt As String, Optional delim As String = " ") As String
    Dim x
    'Updateby20140924
    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. Nato shranite in zaprite to kodo, se vrnite na delovni list in vnesite to formulo = RemoveDupes2 (A2, ",") v prazno celico poleg podatkov, si oglejte sliko zaslona:

doc-odstranite-podvojene znake-1

4. Potem kopirajte formulo v želene celice in vse podvojene besede so bile odstranjene iz vsake celice. Prikaz slike:

doc-odstranite-podvojene znake-1

Opombe: V zgornji formuli, A2 označuje celico, ki jo želite uporabiti, in vejico (,) pomeni oznako ločil, ki ločuje besede v celici, lahko jo spremenite na katerokoli drugo ločilo, ki je v vaši potrebi.



Priporočena orodja za produktivnost za Excel

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Rocio · 4 months ago
    Hi, what should I do if I want to delete duplicated words within on cell? For example, Ana Garcia Lopes Garcia -> Ana Garcia Lopes
    • To post as a guest, your comment is unpublished.
      skyyang · 4 months ago
      Hello, Rocio,
      To remove the duplicate words within a cell, you should apply the User Defined Function of the second method in this article,
      Remove duplicate words separated by punctuation with User Defined Function

      and then apply this formula:=RemoveDupes2(A2," ").
      Please try it, hope it can help you!
      • To post as a guest, your comment is unpublished.
        Rocio · 4 months ago
        Thanks! but what will happen if i do not have punctuation within the cell? for example: Apple Book Pencil Book and I want to remove the duplicated word in this case Book and just obtain Apple Book Pencil
        • To post as a guest, your comment is unpublished.
          skyyang · 4 months ago
          Hi,
          If your cell value is separated by space, after pasting the above code, you just need to replace the comma with space as follows:
          Replace this formula:=RemoveDupes2(A2,",") with =RemoveDupes2(A2," ")
  • To post as a guest, your comment is unpublished.
    Bill Davis · 5 months ago
    I have been using the VBA code: Remove duplicate words separated by punctuation of a cell RemoveDupes2 logic for some time now and I recently had my machine upgraded to O365 and when running this same process, I get an error on my cell. Instead of returning the values I expect, I am getting the #Value! error in the cell.

    I'm not too savy on writing formulas or using the VB logic, so not sure where to start, any guidance would be helpful.
  • To post as a guest, your comment is unpublished.
    NeedExcelHelp · 9 months ago
    What about removing duplicate addresses. If I have a cell that says "123 Address St. 123 Address St." How can I select only the first address when I have many cells with different addresses in each of them?
  • To post as a guest, your comment is unpublished.
    Suraj Singh · 9 months ago
    Can we removed the duplicate from in single cell tax . like as per below tax the highlighted tax is duplicate.

    C2/1104, SUMMER PALM SECTOR 86 C2/1104, SUMMER PALM FARIDABAD HARYANA India
  • To post as a guest, your comment is unpublished.
    Angshuman Pradhan · 10 months ago
    how to save =RemoveDupes2 this formula in excel 2007
    • To post as a guest, your comment is unpublished.
      skyyang · 10 months ago
      Hello, Pradhan,
      To save this formula for using next time, you should save the workbook as Excel Macro-Enabled Workbook file format.
      Please try it, hope it can help you!