Ենթադրելով, որ յուրաքանչյուր բջիջում կան կրկնօրինակ նիշեր կամ բառեր, և դուք ցանկանում եք հեռացնել կրկնօրինակները և թողնել միայն եզակի նիշեր կամ բառեր: Ինչպե՞ս կարող եք լուծել այս խնդիրը 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 ցույց է տալիս այն բջիջը, որը ցանկանում եք օգտագործել, իսկ ստորակետը (,) նշանակում է կետադրության նշանը, որն առանձնացնում է բառերը բջիջում, այն կարող եք փոխել ձեր կարիքների համար ցանկացած այլ կետադրության:
