Ինչպե՞ս Excel- ում բջիջներից մի քանի տարածություն փոխարինել մեկ տարածությամբ:
Ենթադրելով, որ ես ունեմ տեքստային տողերի ցուցակ, որոնք պարունակում են բազմաթիվ տարածքներ, այժմ ես պետք է փոխարինեմ այս տարածքները տեքստի տողերի մեջ մեկ տարածությամբ, որպեսզի առանձնացնեմ բառերը, ինչպես ցույց է տրված հետևյալ նկարում: Ինչպե՞ս կարող էի միանգամից փոխարինել բազմակի տարածությունները միայն մեկով ՝ առանց դրանք հատ առ հատ հանելու:
Մի քանի տարածություն փոխարինեք մեկ տարածությամբ ՝ օգտագործելով բանաձև
Excel- ում «Գտիր և փոխարինիր» նորմալ հատկությունը կարող է լավ չաշխատել մեզ համար այս խնդիրը լուծելու համար, ուստի մենք կարող ենք կիրառել պարզ բանաձև `դրանով զբաղվելու համար: Խնդրում եմ, արեք այսպես.
1, Մուտքագրեք այս բանաձևը. = TRIM (ՓՈԽԱՐITԱԿ (A2, CHAR (32), "")) ձեր բջջային արժեքից բացի դատարկ բջիջի մեջ տես նկարի նկարը.
2, Դրանից հետո սեղմեք Մտնել արդյունքը ստանալու համար ստեղնը և ընտրեք B2 բջիջը, այնուհետև լրացնելու բռնիչը քաշեք այն միջակայքի բջիջների վրա, որոնք ցանկանում եք կիրառել այս բանաձևը, և բոլոր լրացուցիչ տարածությունները հանվել են տեքստի տողերից և միայն մեկ տարածություն է պահվելու տեքստ. Տեսեք,
Փոխարինեք բազմաթիվ տարածություններ մեկ տարածությամբ ՝ օգտագործելով 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. Եվ այնուհետեւ կտտացրեք OK կոճակը, բոլոր ավելորդ տարածությունները տեքստի մեջ փոխարինվել են մեկ տարածությամբ:
Փոխարինեք բազմաթիվ տարածություններ մեկ տարածքով ՝ Excel- ի համար օգտագործելով Kutools
Եթե ունեք այլ տիպի տարածքներ, որոնք պետք է հեռացվեն, ինչպիսիք են առաջատար տարածքները հեռացնելը, հետևյալ տարածությունները, տեքստի բոլոր տարածությունները, ես խորհուրդ կտամ մի հզոր գործիք.Excel- ի համար նախատեսված գործիքներ, իր Հեռացնել տարածությունները օգտակար, դուք կարող եք հեռացնել ցանկացած տարածք, որքան ձեզ հարկավոր է, ինչպիսիք են առաջատար տարածքը, հետևի տարածքները, բոլոր տարածքները ...
3, Մեջ Հեռացնել տարածությունները երկխոսության վանդակում, ընտրեք Բոլոր ավելցուկային տարածքները - ից Տարածքների տեսակը բաժնում, և արդյունքը կարող եք դիտել այստեղից Preview պատուհան, տես նկարի նկարը.
4. Եվ այնուհետեւ կտտացրեք Ok or Դիմել կոճակը, բոլոր լրացուցիչ տարածքները հանվել են բջիջից և միայն մեկ տեղ են թողնում տեքստի մեջ:
Դեմո. Փոխարինեք բազմաթիվ տարածքներ մեկ տարածքով ՝ 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-օրյա գումարի վերադարձի երաշխիք:
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
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...
