Note: The other languages of the website are Google-translated. Back to English

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

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

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

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


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

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

doc-remove-duplicate-characters-1

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 տվյալների բջիջն է, որից ցանկանում եք կրկնօրինակները հեռացնել) ձեր տվյալներից բացի, դատարկ բջիջի մեջ: Տեսեք,

doc-remove-duplicate-characters-1

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

doc-remove-duplicate-characters-1


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

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

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, ",") ձեր տվյալների կողքին գտնվող դատարկ բջիջում, տես նկարի նկարը.

doc-remove-duplicate-characters-1

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

doc-remove-duplicate-characters-1

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


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

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

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

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (66)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դեռ կոտրված... իրականում ոչինչ ցույց չի տալիս: Ահա իմ բջջային տվյալները. 27000,Հիմնական,Արտադրանքներ,Նյութեր,Փայտից,Քարից,Հողից,Հումք,Նյութեր,27100,Հիմնական,Անտառ,Արտադրանքներ,Ընդհանուր,27110,Հիմնական,Անտառ,Ապրանք,Սղոցարան,Ապրանք27120 Անտառ, Ապրանքներ, Փայտ, Ցելյուլոզ, 27200, Ապակի Ակնհայտ է, որ այնտեղ կան խաբեություններ: Բջիջը թողնում է դատարկ: Մտքեր.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Մի բան, ես հիմար եմ: Քանի որ ես ուզում էի միայն բառեր քաշել, ես վերանվանեցի մոդուլը RemoveDupes, բայց չփոխեցի RemoveDupes-ը հետագայում կոդի մեջ: Ամրագրված, մուրճով ինքն իրեն հարվածող...
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Եվ ես համատեղեցի RemoveDupes-ը ConCat-ի հետ (VBA լավը, ոչ թե CON(I-SUCK-BECAUSE-I'M-MICROSOFT)CATENATE) այս մեջ. այն ներս քաշեց իմ բջիջները, իսկ հետո ջնջեց բոլոր կեղծիքները: Շնորհակալություն RemoveDupes-ի համար, ահա ConCat. Function ConCat(Delimiter As Variant, ParamArray CellRanges() As Variant) As String Dim Cell as Range, Area As Variant If IsMissing(Delimiter) Ապա սահմանազատիչ = "" Յուրաքանչյուր տարածքի համար Cell Ranges(Type) Տարածք) = «Տարածք», Ապա Տարածքի յուրաքանչյուր բջիջի համար Եթե Len (Cell.Value) Ապա ConCat = ConCat & սահմանազատող & Cell.Value Next Else ConCat = ConCat & սահմանազատող & Տարածքի վերջ Եթե Հաջորդ ConCat = Mid (ConCat, Len (Delimiter): ) + 495) Վերջի ֆունկցիա
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փորձեցի ձեր «Հեռացնել կրկնօրինակ բառերը, որոնք առանձնացված են կետադրական նշաններով, օգտագործողի կողմից սահմանված գործառույթով» լուծումը, և այն հիանալի է աշխատում բջջի մի քանի բառերի համար, ԲԱՅՑ ամբողջությամբ չի լուծում իմ խնդիրը: Ես ունեմ մի բջիջ, որն ունի բազմաթիվ արժեքներ և ուզում եմ համեմատել մի քանի արժեք ունեցող մեկ այլ բջիջի հետ, այնուհետև հեռացնել կրկնօրինակները, որոնք գոյություն ունեն երկու բջիջների միջև: Կա՞ դա անելու միջոց:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
նույնը այստեղ, խնդրում ենք օգնել
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
այս թեման դեռ կենդանի է? Ես շատ կգնահատեի այս VBA ֆունկցիայի հետ կապված որոշակի պատկերացումները.. իմ հարցերը կապված են կոդի հետ, որտեղ, եթե ընդհանրապես պետք է նրան հանձնարարեմ գտնել կոնկրետ կետադրական նշանը որպես սահմանազատող։ Եթե ես օգտագործեի «@»-ը որպես կետադրությո՞ւնը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ձեր խորհուրդը զարմանալի է: Ես տեսակավորեցի 58,400 ձայնագրություն մոտ 2 րոպեում և խնայեցի մեկ շաբաթ (կամ ավելի) աշխատանք: Իմ կրկնօրինակները մի փոքր ավելի դժվար էին այս օրինակը «V&O Liquid Fuel Lantern 13-1/2in blk վառելիքի լապտեր» դարձնելով այս «V&O Liquid Fuel Lantern 13-1/2in blk» շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ձեզ, խնդրում եմ, ես ձեր օգնության կարիքն ունեմ, ես փորձեցի ձեր կոդը, բայց այն չաշխատեց, միգուցե այն պատճառով, որ ես ունեմ թվեր, ես ունեմ կրկնօրինակ հեռախոսահամարներ, որոնք բաժանված են ստորակետերով, խնդրում եմ, ասեք ինձ, թե ինչ անեմ: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
նույնը այստեղ, խնդրում ենք օգնել
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
BRILLIANT շնորհակալություն! շնորհակալություն! շնորհակալություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հրաշալի է, շնորհակալություն!.....
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեկամ, ես քո օգնության կարիքն ունեմ: Ի՞նչ պետք է անեմ, եթե ցանկանում եմ հանել կրկնօրինակը: A1-ում (asdfghjiklkk) Ուրեմն k-ը կրկնօրինակված նիշ է, ես ուզում եմ A2 (k) ինչ պետք է անեմ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հնարավո՞ր է արդյոք կարգավորել գործառույթը, եթե կա որոշակի բառ, որը ես ուզում եմ կրկնօրինակել, մինչդեռ մնացածը կրկնօրինակված չեն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Պարզապես ուզում եմ խնայել, շատ շնորհակալություն այս ուղեցույցի համար, փրկեց ինձ շատ աշխատանք: :)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա շատ օգտակար է: Ես փորձել եմ այն, և այն աշխատում է ինձ մոտ, բացառությամբ: Գերազանց !!!!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա հիանալի և պարզ լուծում է մեկ բջիջում կրկնօրինակ արտահայտություններ գտնելու համար, շատ ավելի հեշտ է, քան որոշ երկարատև մակրո լուծումներ, որոնք ես գտա, երբ փնտրում էի իմ խնդրի պատասխանը, շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն այս կոդի համար. այն ինձ տոննա ժամանակ խնայեց:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ունեմ այնպիսի տվյալներ, ինչպիսիք են 1. ցույց տալ ստորև մեկ բջիջում և ուզում եմ հավանել 2. 1. ZERPUR,MAHENDRAGARH, HARYANA-123029, 30771237, 8813073653, ZERPUR(16),MAHENDRAGARH, HARYANA-123029, HARYANA-30771237 նման:- ZERPUR, MAHENDRAGARH, HARYANA-8813073653, 123029, 30771237 Շնորհակալություն և հարգանքներով Hanuman Singh 8813073653
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
սովորեցրու ինձ ինչպես? դա նույնպես պետք է իմանալ..
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
կարո՞ղ ենք պարզել 1-ին փոքրատառի դիրքը


Քննություն - RAMSHsJHSAhsjDDD ------Ես ուզում եմ իմանալ 1-ին փոքր տառի դիրքը ըստ բանաձևի = s
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Մեհարբան,
Առաջին փոքրատառի դիրքը ստանալու համար կարող եք կիրառել զանգվածի հետևյալ բանաձևը.
=MATCH(1,IF(ABS(CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))-109.5)<=12.5,1),0)
Խնդրում ենք հիշել, որ սեղմեք Ctrl + Shift + Enter ստեղները միասին:


Հուսով եմ, որ դա կարող է օգնել ձեզ, շնորհակալություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Սքայանգ

ճիշտ է աշխատում.....
իրականում ես նույն բանն էի ուզում..

շատ շնորհակալություն !!


Meharban singh pal
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպես հեռացնել համապատասխան տողերի կրկնօրինակները...կարո՞ղ եք ինձ ասել


Regards,
Kiran
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Կիրան,
Կարող եք օրինակ բերել ձեր խնդրին: Կամ կարող եք տեղադրել հավելվածի պատկեր:
Սպասում ենք Ձեր պատասխանին!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
շատ շնորհակալ եմ, դա ինձ ավելի շատ է օգնում: Բայց ես ավելին եմ ուզում իմ տվյալների հավաքածուի համար:
Ես ունեմ երկու սյունակի տվյալներ: ID և Info. Տեղեկությունների սյունակում յուրաքանչյուր բջջի նախագծի ID-ն կրկնվում է, օրինակ՝ «Kant-, Udp-, Akr- և այլն»: Իմ տվյալների հավաքածուի համար project_id-ը 15-ից ավելի է, և այն շտկված է: Այսպիսով, ես ուզում եմ ջնջել repeated_id-ը բջիջից, բայց պահել առաջինը:
Օրինակ՝ Kant-526 (0.0287),Kant-527 (0.0113),Kant-528 (0.0262) /// Kant-526 (0.0287),527 (0.0113),528 (0.0262),
Kant-543 (0.0685),Kant-544 (0.0685),Udp-097 (0.0141) /// Kant-543 (0.0685),544 (0.0685),Udp-097 (0.0141)

Նմուշի պատկերը կցված է այստեղ: Սրա լուծում կա՞։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Իմրան,
Կներեք ձեր խնդիրը չլուծելու համար, եթե որևէ մեկը լավ գաղափար ունի, խնդրում ենք մեկնաբանել այստեղ:
Thank you!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ինքնուրույն լուծում եմ ստացել. Ես այստեղ օգտագործել եմ SUBSTITUTE բանաձևը, բայց այն չափազանց մեծ է իմ տվյալների համար: այնպես որ կրկնեք այն երկու կամ երեք անգամ՝ պատշաճ արդյունք ստանալու համար:

=SUBSTITUTE(SUBSTITUTE("Kant-","",2), ("Kant-","",2)
Այստեղ, 1-ին 2-ը երկրորդ Կանտի համար՝ փոխարինում, իսկ հաջորդի համար՝ յուրաքանչյուր Կանտի համար, պարզապես ավելացրեք («Կանտ-», «»,2) հավելյալ: Այն աշխատում է ինձ համար: Բայց ես նախընտրում եմ լավ VBA:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն կոդը:

Խնդրում եմ, կարող եք օգնել ինձ: Ես օգտագործում եմ մակրո ֆունկցիան՝ հեռացնելու բջջի կետադրական նշաններով առանձնացված բառերը, սակայն իմ տվյալները բառեր չեն, իրականում արտահայտություններ են: «KTE, KTO, KTW, KTO»-ի փոխարեն «KTE, KTO, KTW, KTO»-ն իրականում կարճ նկարագրություններ են, ինչպիսիք են «պատրաստել օրինագիծ, վերանայել իմ էլ. նամակները, թարմացնել պայմանագրերը, վերանայել իմ նամակները»:

Հնարավո՞ր է արդյոք թարմացնել VBA-ն՝ բառերի փոխարեն կրկնօրինակ արտահայտությունները հեռացնելու համար:

Շատ շնորհակալություն, սա իրականում շատ օգտակար կլինի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ալոնսո,
Կրկնվող արտահայտությունը հեռացնելու համար օգտագործողի կողմից սահմանված գործառույթը կարող է օգնել ձեզ, խնդրում ենք փորձել այն:

RemoveDuplicateValue ֆունկցիան (xStr որպես տող, xDelim որպես տող) որպես տող
Dim xValue
Եթե ​​(Len(xDelim) > 0) Եվ (Len(Trim(xStr)) > 0) Ապա
CreateObject-ով («Scripting.Dictionary»)
Յուրաքանչյուր xValue In Split (xStr, xDelim) համար
Եթե ​​Trim(xValue) <> "" And Not .exists(Trim(xValue)) Ապա .Ավելացրե՛ք կտրվածք(xValue), ոչինչ
հաջորդ
Եթե ​​.Count > 0 Ապա RemoveDuplicateValue = Join(.keys, xDelim)
Վերջ
Ուրիշ
RemoveDuplicateValue = xStr
Վերջ: Եթե
End գործառույթը

Այնուհետև կիրառեք այս բանաձևը՝ =RemoveDuplicateValue(A2,","), փոխեք բաժանարարը ձեր սեփականի վրա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Սքայանգ,



Ես հուսով եմ որոշակի օգնություն ստանալ հետևյալ բջջի հետ կապված.

PR-ՊՈՒԵՐՏՈ ՌԻԿՈ; ԱՄՆ-Միացյալ նահանգներ; ԱՄՆ-Միացյալ նահանգներ

Ինձ անհրաժեշտ է, որ ԱՄՆ-Միացյալ նահանգների կրկնօրինակը հեռացվի, քանի որ իմ վերբեռնման գործիքը թույլ չի տա կրկնօրինակել:



Ես օգտագործեցի վերը նշված VBA-ն և իմ բանաձևի սահմանազատիչը փոխարինեցի «;»-ով: Արդյո՞ք գծիկն է պատճառը, որ սա խնդիր ունի: Վերադարձնում է #NAME: երբ ես գործարկում եմ բանաձևը: Ես նոր եմ մակրո/VBA-ում, բայց համոզվեցի, որ ֆայլը պահպանված է որպես մակրո միացված ֆայլ: Ես իսկապես փորձեցի հետևել դրանց դեպի Տ.


Շնորհակալություն այս բոլորի՝ արդեն իսկ հիանալի տեղեկատվության համար, քանի որ այն օգնեց մեկ այլ նախագծի, որը ես նույնպես պետք է ավարտեի, և ցանկացած լրացուցիչ բան մեծապես գնահատելի է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Մայքլ,
Նկատի ունեք բոլոր կրկնօրինակ արտահայտությունները հեռացնել բջիջից և թողնել միայն եզակիները:
Սպասեք ձեր պատասխանին:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա այն արդյունքն է, որը ես փնտրում եմ.

Ընթացիկ՝ PR-ՊՈՒԵՐՏՈ ՌԻԿՈ; ԱՄՆ-Միացյալ նահանգներ; ԱՄՆ-Միացյալ նահանգներ
Ցանկալի է՝ PR-ՊՈՒԵՐՏՈ ՌԻԿՈ; ԱՄՆ-Միացյալ նահանգներ

Հուսով եմ, որ սա իմաստ ունի և շատ շնորհակալ եմ արագ պատասխանի համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Մայքլ,
Պարզապես պետք է կիրառեք ստորև բերված կոդը, այնուհետև օգտագործեք այս բանաձևը՝ =RemoveDuplicateValue(A2,";"): Խնդրում եմ փորձեք, հուսով եմ, որ դա կարող է օգնել ձեզ:

RemoveDuplicateValue ֆունկցիան (xStr որպես տող, xDelim որպես տող) որպես տող
Dim xValue
Եթե ​​(Len(xDelim) > 0) Եվ (Len(Trim(xStr)) > 0) Ապա
CreateObject-ով («Scripting.Dictionary»)
Յուրաքանչյուր xValue In Split (xStr, xDelim) համար
Եթե ​​Trim(xValue) <> "" And Not .exists(Trim(xValue)) Ապա .Ավելացրե՛ք կտրվածք(xValue), ոչինչ
հաջորդ
Եթե ​​.Count > 0 Ապա RemoveDuplicateValue = Join(.keys, xDelim)
Վերջ
Ուրիշ
RemoveDuplicateValue = xStr
Վերջ: Եթե
End գործառույթը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալ եմ: Ձեր արձագանքն ավելի ողջունելի էր, քան իմ բաժակ սուրճը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, սա իսկապես օգտակար է
Բայց ես ուզում եմ հեռացնել ամբողջ բառերը «NO TO»-ից հետո:

օրինակ՝ ՈՉ՝ [C11bx1]

ՈՉ. [C11bx3] հավանում է սա
Առայժմ ոչ մի մեկնաբանություն չկա
Բեռնել More
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից