Ինչպե՞ս Excel- ում հեռացնել տողերից մի քանի հատուկ նիշ:

Եթե կան որոշ հատուկ նիշեր, ինչպիսիք են % ^ & * () տեքստի տողերի շրջանակներում, և այժմ, դուք ցանկանում եք հեռացնել այդ հատուկ նիշերը բջջային տողերից: Դրանք մեկ առ մեկ հեռացնելը ժամանակատար կլինի, այստեղ ես Excel- ում կներկայացնեմ մի քանի արագ հնարքներ այս խնդիրը լուծելու համար:

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

Excel- ի համար Kutools- ի միջոցով հեռացրեք որոշ հատուկ նիշեր տեքստի տողից

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

Հետևյալ VBA կոդը կարող է օգնել ձեզ հեռացնել ձեզ անհրաժեշտ հատուկ նիշերը, խնդրում ենք կատարել հետևյալ կերպ.

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

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

VBA կոդ. Հեռացրեք որոշ հատուկ նիշեր տեքստի տողից

Function RemoveSpecial(Str As String) As String
'updatebyExtendoffice 20160303
    Dim xChars As String
    Dim I As Long
    xChars = "#$%()^*&"
    For I = 1 To Len(xChars)
        Str = Replace$(Str, Mid$(xChars, I, 1), "")
    Next
    RemoveSpecial = Str
End Function

3, Դրանից հետո պահեք և փակեք այս կոդը, վերադարձեք աշխատանքային թերթ և մուտքագրեք այս բանաձևը. = հեռացնել հատուկ (A2) դատարկ բջիջի մեջ, որտեղ ցանկանում եք տեղադրել արդյունքը, տես նկարի նկարը.

փաստաթուղթը հեռացնել հատուկ նիշերը 1

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

փաստաթուղթը հեռացնել հատուկ նիշերը 2

ՆշումՎերոհիշյալ ծածկագրում կարող եք փոխել հատուկ նիշերը # $% () ^ * & ցանկացած ուրիշի, որը ցանկանում եք հեռացնել:

դուրս գրիր թվային, ալֆա կամ այլ հատուկ նիշեր տեքստի տողից

Excel- ի համար նախատեսված գործիքներ's Հեռացնել նիշերը առանձնահատկությունը կարող է օգնել արագ հեռացնել բոլորը թվային, ալֆա, ոչ թվային, ոչ ալֆա, չտպագրական, այլ հատուկ հերոսներ տեքստի տողերից, որքան անհրաժեշտ է: Կտտացրեք ներբեռնելու և անվճար փորձարկման Kutools- ի համար Excel- ը հիմա:

փաստաթուղթը հեռացնել հատուկ նիշերը 7

Excel- ի համար նախատեսված գործիքներ. Excel- ի ավելի քան 300 հարմարավետ հավելումներով, 30 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Ներբեռնեք և անվճար փորձեք հիմա:

Եթե դուք հմտ չեք VBA կոդի հետ, Excel- ի համար նախատեսված գործիքներ'S Հեռացնել նիշերը օգտակար ծրագիրը կարող է օգնել արագ և հեշտությամբ ավարտել այս առաջադրանքը:

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներխնդրում եմ այսպես.

1, Ընտրեք տեքստի տողերը, որոնք ցանկանում եք հեռացնել մի քանի հատուկ նիշ:

2. Սեղմել Կուտոլս > Տեքստ > Հեռացնել նիշերը, տես նկարի նկարը.

3, Մեջ Հեռացնել նիշերը երկխոսության տուփ, ստուգեք Սովորություն տարբերակով Հեռացնել նիշերը բաժինը և մուտքագրեք այն հատուկ նիշերը, որոնք ցանկանում եք հեռացնել, տե՛ս սքրինշոթը.

փաստաթուղթը հեռացնել հատուկ նիշերը 4

4. Եվ այնուհետեւ կտտացրեք Ok or Դիմել կոճակը, ձեր նշած նիշերը Սովորություն տեքստային տուփը միանգամից հանվել է տեքստի տողերից, տե՛ս սքրինշոթերը.

Կտտացրեք ներբեռնելու և անվճար փորձարկման Kutools- ի համար Excel- ը հիմա:

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

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%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

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

մեկնաբանություններ (11)

Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:

Deepak

մոտ 4 տարի առաջ

#25225

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

GetWordWOSpecChar ֆունկցիան (Rng As Range)
«Կպցնել VBA մոդուլում, Օգտագործել որպես բանաձև
Ստեղծվել է Դիպակ Շարմայի կողմից
Arr = Array ("48", "49", "50", "51", "52", "53", "54", "55", _
«56», «57», «65», «66», «67», «68», «69», «70», «71», «72», «73», «74», «75». », _
«76», «77», «78», «79», «80», «81», «82», «83», «84», «85», «86», «87», «88». », _
«89», «90», «97», «98», «99», «100», «101», «102», «103», «104», «105», «106», _
«107», «108», «109», «110», «111», «112», «113», «114», «115», «116», «117», «XNUMX», «XNUMX», «XNUMX», «XNUMX», «XNUMX»
«118», «119», «120», «121», «122»)

For i = 1 To Len (Rng.Value)
txt = Mid (Rng.Value, i, 1)
g = 1 Դեպի UBound (Arr)
Եթե txt = Chr(Arr(g)) Ապա GetWord = Right(Rng.Value, Len(Rng.Value) - (i - 1)): Ելք ֆունկցիա
Հաջորդ գ
Հաջորդ i

End գործառույթը

պատասխանել

Kim

մոտ 3 տարի առաջ

#28044

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Ողջույն տղաներ,

Ես կիրառել եմ =removespecial(A2) կոդը և այն հիանալի աշխատում է մի աշխատաթերթում, իսկ մյուսում այն տալիս է անվավեր #NAME: սխալ.
Ես ստուգեցի «ֆորմատի բջիջները» և երկուսն էլ ընդհանուր վրա են, և ես նույն տեքստը + բանաձևը պատճենել եմ երկու աշխատաթերթերում, բայց այն չի աշխատի:
Կա՞ որևէ հուշում, թե դա ինչի կարող է հանգեցնել:

Շնորհակալություն և շատ շնորհակալ եմ այս ծածկագրի համար:
Խնայում է ինձ աշխատանքի ժամերն ու ժամերը:

Հարգանքներով՝ Քիմ

պատասխանել

Kim

մոտ 3 տարի առաջ

#28045

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Հմմ, Հետաքրքիր է, այն աշխատում է միայն այն աշխատաթերթում, որում սկզբնապես տեղադրել եք կոդը:
Ինչ վերաբերում է այդ մեկին, այն միայն թվում է, թե աշխատում է, ոչ թե ձեր բացած որևէ նոր աշխատանքային գրքի համար

պատասխանել

skyyang Kim

մոտ 3 տարի առաջ

#28046

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև Քիմ,
VBA կոդը կարող է կիրառվել միայն մեկ աշխատանքային գրքում, եթե ցանկանում եք այն կիրառել նոր աշխատանքային գրքում, ապա պետք է նորից պատճենեք և տեղադրեք կոդը ձեր նոր աշխատանքային գրքում:
Thank you!

պատասխանել

հաշվետվություն

Նիկ ԴեԿաստրո

մոտ 3 տարի առաջ

#30207

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Հատուկ նիշեր փնտրելու փոխարեն, ի՞նչ կասեք, եթե ցանկանում եք որոնել և փոխարինել ԲՈԼՈՐ հատուկ նիշերը: Այլ կերպ ասած, ինչպես կգրեիք որոնումը հետևյալ նիշերից ՈՉ մեկի համար՝ «ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789»

պատասխանել

հաշվետվություն

skyyang Նիկ ԴեԿաստրո

մոտ 3 տարի առաջ

#30208

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև, Նիկ,
Ցանկանու՞մ եք հեռացնել բոլոր ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 նիշերը բջիջներից:
Անհամբեր սպասում եմ ձեր պատասխանին, շնորհակալություն:

պատասխանել

հաշվետվություն

Նիկ ԴեԿաստրո skyyang

մոտ 3 տարի առաջ

#30209

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Ոչ: Ես ուզում եմ պահպանել միայն «ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789»

պատասխանել

հաշվետվություն

skyyang Նիկ ԴեԿաստրո

մոտ 3 տարի առաջ

#30210

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Նիք,
Միգուցե ստորև բերված VBA կոդը կարող է լուծել ձեր խնդիրը, խնդրում ենք փորձել.

Sub RemoveNotAlphasNotNum()
Dim Rng որպես միջակայք
Dim WorkRng որպես տիրույթ
Ս.թ. սխալի Ռեզյումե Next
xTitleId = «KutoolsforExcel»
Սահմանել WorkRng = Application.Selection
Սահմանել WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Type:=8)
Յուրաքանչյուր Rng-ի համար WorkRng-ում
xOut = ""
For i = 1 To Len (Rng.Value)
xTemp = Mid (Rng.Value, i, 1)
Եթե xTemp-ը նման է «[az.]»-ին կամ xTemp-ի նման «[AZ.]»-ին կամ xTemp-ի նման «[0-9.]»-ին, ապա
xStr = xTemp
Ուրիշ
xStr = ""
Վերջ: Եթե
xOut = xOut & xStr
Հաջորդ i
Rng.Value = xOut
հաջորդ
Վերջ Sub

Հուսով եմ, որ դա կարող է օգնել ձեզ:

պատասխանել

հաշվետվություն

minhys1

մոտ 1 տարի առաջ

#36100

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Ինչպես հեռացնել Emoji-ի դեպքում:

պատասխանել

Քրիս

մոտ 1 տարի առաջ

#36159

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Շնորհակալություն այս կոդի համար
Function RemoveSpecial (Str As String) As String
«թարմացնելովExtendoffice 20160303
Dim xChars As String
Dim I As Long
xChars = "#$%()^*&"
For I = 1 To Len (xChars)
Str = Փոխարինել$(Str, Mid$(xChars, I, 1), "")
հաջորդ
RemoveSpecial = Փող
End գործառույթը

Բայց հնարավո՞ր է, որ դա կարող է հեռացնել կոնկրետ տեքստ: ինչպես «ab», «abc», «bc» և այլն:

պատասխանել

Լիննի Էնթոնի

մոտ 4 ամիս առաջ

#40272

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Գերազանց.. Հինգ աստղեր.. շատ շնորհակալ եմ

պատասխանել

Առայժմ ոչ մի մեկնաբանություն չկա

Թողեք ձեր մեկնաբանությունները

Հրապարակում որպես հյուր

Մուտք

Անուն (պարտադիր է)

Email (պահանջվում է)

Գնահատեք այս գրառումը.

Նորից դնել

0 Անձնավորություններ

Ես համաձայն եմ, որ պայմանները եւ պայմանները