Ինչպե՞ս հեռացնել կրկնօրինակ նիշերը կամ բառերը բջիջի տողի մեջ:

Ենթադրելով, որ յուրաքանչյուր բջիջում կան կրկնօրինակ նիշեր կամ բառեր, և դուք ցանկանում եք հեռացնել կրկնօրինակները և թողնել միայն եզակի նիշեր կամ բառեր: Ինչպե՞ս կարող եք լուծել այս խնդիրը Excel- ում:

Հեռացրեք օգտագործողի կողմից սահմանված գործառույթով տեքստի տողի կրկնօրինակ նիշերը

Հեռացրեք օգտագործողի կողմից սահմանված գործառույթով կետադրությամբ առանձնացված կրկնօրինակ բառերը

Հեռացրեք օգտագործողի կողմից սահմանված գործառույթով տեքստի տողի կրկնօրինակ նիշերը

Եթե ​​ունեք տեքստի ցուցակ, այժմ անհրաժեշտ է հեռացնել կրկնօրինակ նիշերը, ինչպես ցույց է տրված հետևյալ նկարը: Այստեղ ես կարող եմ խոսել VBA կոդի մասին `դրանով զբաղվելու համար:

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհան.

VBA կոդ. Բջջում հեռացնել տեքստի տողի կրկնօրինակ նիշերը

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, Դրանից հետո պահեք և փակեք այս կոդը, վերադառնաք աշխատանքային թերթ և մուտքագրեք այս բանաձևը = removeupes1 (A2) (A2 տվյալների բջիջն է, որից ցանկանում եք կրկնօրինակները հեռացնել) ձեր տվյալներից բացի, դատարկ բջիջի մեջ: Տեսեք,

4, Եվ այնուհետև լրացնելու բռնիչը քաշեք դեպի այն միջակայքի բջիջները, որոնք ցանկանում եք կիրառել այս բանաձևը, բոլոր կրկնօրինակ նիշերը անմիջապես հանվել են յուրաքանչյուր բջիջից:

Հեռացրեք օգտագործողի կողմից սահմանված գործառույթով կետադրությամբ առանձնացված կրկնօրինակ բառերը

Եթե ​​բջիջում կան որոշ բառեր, որոնք բաժանված են որոշակի կետադրական նշաններով, կարող եք նաև հեռացնել կրկնօրինակ բառերը, ինչպես ցանկանում եք: Խնդրում ենք անել հետևյալ քայլերով.

1. Անջատեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհան.

VBA ծածկագիր. Հեռացրեք կրկնօրինակ բառերը, որոնք բաժանված են բջջի կետադրմամբ

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, Դրանից հետո պահեք և փակեք այս կոդը, վերադարձեք աշխատանքային թերթ և մուտքագրեք այս բանաձևը = RemoveDupes2 (A2, ",") ձեր տվյալների կողքին գտնվող դատարկ բջիջում, տես նկարի նկարը.

4, Դրանից հետո բանաձևը պատճենեք ձեր անհրաժեշտ բջիջներին, և բոլոր կրկնօրինակ բառերը հանվել են յուրաքանչյուր բջիջներից: Տեսեք,

ՆշումՎերոհիշյալ բանաձևում A2 ցույց է տալիս այն բջիջը, որը ցանկանում եք օգտագործել, իսկ ստորակետը (,) նշանակում է կետադրության նշանը, որն առանձնացնում է բառերը բջիջում, այն կարող եք փոխել ձեր կարիքների համար ցանկացած այլ կետադրության:

---

Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

• Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
• Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
• Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
• Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
• Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
• Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
• Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
• Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
• Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ... 

---

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

• Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
• Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
• Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...