Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս 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 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Ներբեռնեք և անվճար փորձեք հիմա:

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

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
I should have checked the Microsoft Doco: https://support.office.com/en-us/article/TRIM-function-410388fa-c5df-49c6-b16c-9e5630b479f9<br />".....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...
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations