Note: The other languages of the website are Google-translated. Back to English
Մուտք  \/ 
x
or
x
Գրանցում  \/ 
x

or

Ինչպե՞ս Excel- ում բջիջներից մի քանի տարածություն փոխարինել մեկ տարածությամբ:

փաստաթուղթը փոխարինում է բազմաթիվ տարածություններին 1

Ենթադրելով, որ ես ունեմ տեքստային տողերի ցուցակ, որոնք պարունակում են բազմաթիվ տարածքներ, այժմ ես պետք է փոխարինեմ այս տարածքները տեքստի տողերի մեջ մեկ տարածությամբ, որպեսզի առանձնացնեմ բառերը, ինչպես ցույց է տրված հետևյալ նկարում: Ինչպե՞ս կարող էի միանգամից փոխարինել բազմակի տարածությունները միայն մեկով ՝ առանց դրանք հատ առ հատ հանելու:

Մի քանի տարածություն փոխարինեք մեկ տարածությամբ ՝ օգտագործելով բանաձև

Փոխարինեք բազմաթիվ տարածություններ մեկ տարածությամբ ՝ օգտագործելով VBA կոդ

Փոխարինեք բազմաթիվ տարածություններ մեկ տարածքով ՝ Excel- ի համար օգտագործելով Kutools


Մի քանի տարածություն փոխարինեք մեկ տարածությամբ ՝ օգտագործելով բանաձև

Excel- ում «Գտիր և փոխարինիր» նորմալ հատկությունը կարող է լավ չաշխատել մեզ համար այս խնդիրը լուծելու համար, ուստի մենք կարող ենք կիրառել պարզ բանաձև `դրանով զբաղվելու համար: Խնդրում եմ, արեք այսպես.

1, Մուտքագրեք այս բանաձևը. = TRIM (ՓՈԽԱՐITԱԿ (A2, CHAR (32), "")) ձեր բջջային արժեքից բացի դատարկ բջիջի մեջ տես նկարի նկարը.

փաստաթուղթը փոխարինում է բազմաթիվ տարածություններին 2

2, Դրանից հետո սեղմեք Մտնել արդյունքը ստանալու համար ստեղնը և ընտրեք B2 բջիջը, այնուհետև լրացնելու բռնիչը քաշեք այն միջակայքի բջիջների վրա, որոնք ցանկանում եք կիրառել այս բանաձևը, և ​​բոլոր լրացուցիչ տարածությունները հանվել են տեքստի տողերից և միայն մեկ տարածություն է պահվելու տեքստ. Տեսեք,

փաստաթուղթը փոխարինում է բազմաթիվ տարածություններին 3


Փոխարինեք բազմաթիվ տարածություններ մեկ տարածությամբ ՝ օգտագործելով VBA կոդ

Եթե ​​դուք հետաքրքրված եք VBA կոդով, ես կարող եմ ձեզ համար ստեղծել մի ծածկագիր, որը կփոխարինի բազմաթիվ տարածքներ մեկով, խնդրում եմ արեք հետևյալը.

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

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

VBA կոդ. Փոխարինեք մի քանի տարածքներ երգերի տարածությամբ

Sub replace_multiplespaces()
'Updateby Extendoffice
Dim x As Range
Dim Workx As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set Workx = Application.Selection
Set Workx = Application.InputBox("Range", xTitleId, Workx.Address, Type:=8)
    For Each x In Workx
        x = WorksheetFunction.Trim(x)
    Next x
End Sub

3, Դրանից հետո սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և կհայտնվի հուշման տուփ ՝ ձեզ հիշեցնելու համար ընտրելով տվյալների տիրույթը, որը ցանկանում եք հեռացնել լրացուցիչ տարածությունները, տե՛ս նկարը.

փաստաթուղթը փոխարինում է բազմաթիվ տարածություններին 4

4. Եվ այնուհետեւ կտտացրեք OK կոճակը, բոլոր ավելորդ տարածությունները տեքստի մեջ փոխարինվել են մեկ տարածությամբ:


Փոխարինեք բազմաթիվ տարածություններ մեկ տարածքով ՝ Excel- ի համար օգտագործելով Kutools

Եթե ​​ունեք այլ տիպի տարածքներ, որոնք պետք է հեռացվեն, ինչպիսիք են առաջատար տարածքները հեռացնելը, հետևյալ տարածությունները, տեքստի բոլոր տարածությունները, ես խորհուրդ կտամ մի հզոր գործիք.Excel- ի համար նախատեսված գործիքներ, իր Հեռացնել տարածությունները օգտակար, դուք կարող եք հեռացնել ցանկացած տարածք, որքան ձեզ հարկավոր է, ինչպիսիք են առաջատար տարածքը, հետևի տարածքները, բոլոր տարածքները ...

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

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

1, Ընտրեք տվյալների տիրույթը, որը ցանկանում եք հեռացնել լրացուցիչ տարածությունները:

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

3, Մեջ Հեռացնել տարածությունները երկխոսության վանդակում, ընտրեք Բոլոր ավելցուկային տարածքները - ից Տարածքների տեսակը բաժնում, և արդյունքը կարող եք դիտել այստեղից Preview պատուհան, տես նկարի նկարը.

փաստաթուղթը փոխարինում է բազմաթիվ տարածություններին 6

4. Եվ այնուհետեւ կտտացրեք Ok or Դիմել կոճակը, բոլոր լրացուցիչ տարածքները հանվել են բջիջից և միայն մեկ տեղ են թողնում տեքստի մեջ:

Սեղմեք ՝ «Հեռացնել տարածքները» այս հատկության մասին ավելին իմանալու համար:

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


Դեմո. Փոխարինեք բազմաթիվ տարածքներ մեկ տարածքով ՝ Excel- ի համար օգտագործելով Kutools

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

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

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

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

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր կտտոցները ձեզ համար ամեն օր:
officetab ներքևում
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Alan Elston · 4 years ago
    Hi
    Thanks for a useful Blog. It helped me get the answer I was looking for.
    _................

    I was just wondering if this is acceptable and correct for removing Replace Multiple Spaces With Single Space From Cells:

    Taking your example,

    Formal to be dragged down:
    =Trim(A2)
    ( I do not understand why you have SUBSTITUTE(A2,CHAR(32)," ") instead of just A2 ??? )
    It appear to give the correct results.

    _.....
    Here is one way I would do it using VBA
    Sub TrimRange()
    Let Range("B2:B9").Value = Evaluate("=If({1},TRIM(" & Range("A2:A9").Address & "))")
    End Sub

    Alan
    • To post as a guest, your comment is unpublished.
      Alan Elston · 4 years ago
      I should have checked the Microsoft Doco: https://support.office.com/en-us/article/TRIM-function-410388fa-c5df-49c6-b16c-9e5630b479f9
      ".....The TRIM function was designed to trim the 7-bit ASCII space character (value 32) from text. In the Unicode character set, there is an additional space character ....." etc - hence the need to make sure the TRIM is working on Char 32 for any spaces...