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

Ինչպե՞ս 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 Դիմել կոճակը, ձեր նշած նիշերը Սովորություն տեքստային տուփը միանգամից հանվել է տեքստի տողերից, տե՛ս սքրինշոթերը.

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

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


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

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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (11)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
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 գործառույթը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն տղաներ,

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

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

Հարգանքներով՝ Քիմ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հմմ, Հետաքրքիր է, այն աշխատում է միայն այն աշխատաթերթում, որում սկզբնապես տեղադրել եք կոդը:
Ինչ վերաբերում է այդ մեկին, այն միայն թվում է, թե աշխատում է, ոչ թե ձեր բացած որևէ նոր աշխատանքային գրքի համար
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Քիմ,
VBA կոդը կարող է կիրառվել միայն մեկ աշխատանքային գրքում, եթե ցանկանում եք այն կիրառել նոր աշխատանքային գրքում, ապա պետք է նորից պատճենեք և տեղադրեք կոդը ձեր նոր աշխատանքային գրքում:
Thank you!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հատուկ նիշեր փնտրելու փոխարեն, ի՞նչ կասեք, եթե ցանկանում եք որոնել և փոխարինել ԲՈԼՈՐ հատուկ նիշերը: Այլ կերպ ասած, ինչպես կգրեիք որոնումը հետևյալ նիշերից ՈՉ մեկի համար՝ «ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789»
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Նիկ,
Ցանկանու՞մ եք հեռացնել բոլոր ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 նիշերը բջիջներից:
Անհամբեր սպասում եմ ձեր պատասխանին, շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ոչ: Ես ուզում եմ պահպանել միայն «ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789»
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Նիք,
Միգուցե ստորև բերված 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


Հուսով եմ, որ դա կարող է օգնել ձեզ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպես հեռացնել Emoji-ի դեպքում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն այս կոդի համար
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» և այլն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Գերազանց.. Հինգ աստղեր.. շատ շնորհակալ եմ
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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