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

Ինչպե՞ս Excel- ում մեծատառերից առաջ բացատներ տեղադրել:

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


Տեղադրեք բացատներ նախքան մեծատառերը օգտագործողի կողմից սահմանված գործառույթով

Unfortunatelyավոք, Excel- ում մեծատառից առաջ բացատներ ավելացնելու ուղի չկա, բայց այս խնդիրը լուծելու համար կարող եք ստեղծել օգտագործողի կողմից սահմանված գործառույթ:

1, Ակտիվացրեք ձեր աշխատանքային թերթը, որը պարունակում է տեքստի տողեր, որոնք ցանկանում եք տարածքներ ավելացնել:

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

3: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհանը.

VBA կոդ. Տեղադրեք բացատներ մեծատառից առաջ

Function AddSpaces(pValue As String) As String
'Update 20140723
Dim xOut As String
xOut = VBA.Left(pValue, 1)
For i = 2 To VBA.Len(pValue)
   xAsc = VBA.Asc(VBA.Mid(pValue, i, 1))
   If xAsc >= 65 And xAsc <= 90 Then
      xOut = xOut & " " & VBA.Mid(pValue, i, 1)
   Else
      xOut = xOut & VBA.Mid(pValue, i, 1)
   End If
Next
AddSpaces = xOut
End Function

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

5, Եվ հետո լրացրեք բռնիչը քաշեք այն միջակայքի վրա, որը ցանկանում եք պարունակել այս բանաձևը, դուք կստանաք, որ տարածությունները տեղադրվեն ձեր յուրաքանչյուր մեծատառից առաջ:
doc- ավելացնել-տարածքներ-մեծից առաջ -1

Հեշտությամբ հեռացրեք առաջատար / հետևյալ / լրացուցիչ տարածությունները բջիջներում

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


գովազդը հեռացնում է 1-ին տեղը

Տեղադրեք տարածություններ VBA կոդով մեծատառերից առաջ

Ահա ևս մեկ VBA կոդ, որը կարող է ձեզ լավություն բերել, արեք հետևյալ կերպ.

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

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

VBA կոդ. Տեղադրեք բացատներ մեծատառից առաջ

Sub AddSpacesRange()
'Update 20140723
Dim Rng As Range
Dim WorkRng As Range
Dim xOut As String
Dim xValue As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For Each Rng In WorkRng
    xValue = Rng.Value
    xOut = VBA.Left(xValue, 1)
    For i = 2 To VBA.Len(xValue)
       xAsc = VBA.Asc(VBA.Mid(xValue, i, 1))
       If xAsc >= 65 And xAsc <= 90 Then
          xOut = xOut & " " & VBA.Mid(xValue, i, 1)
       Else
          xOut = xOut & VBA.Mid(xValue, i, 1)
       End If
    Next
    Rng.Value = xOut
Next
Application.ScreenUpdating = True
End Sub

3, Դրանից հետո սեղմեք F5 Այս կոդը կատարելու բանալին, կհայտնվի հուշման տուփ, որը հնարավորություն կտա ձեզ ընտրել տվյալների տիրույթը, որը ցանկանում եք օգտագործել:
doc- ավելացնել-տարածքներ-մեծից առաջ -1

4. Եվ այնուհետեւ կտտացրեք OK այս արագ տուփը փակելու համար բացատները միանգամից տեղադրվել են մեծատառերից առաջ, տե՛ս նկարը.
doc- ավելացնել-տարածքներ-մեծից առաջ -1


Տեղադրեք տարածք յուրաքանչյուր մեծատառից առաջ Excel- ի համար Kutools- ով

Excel- ի համար նախատեսված գործիքներ Ավելացրեք տեքստ օգտակար ծրագիրը կարող է օգնել ձեզ շրջանցել VBA մակրոները և Excel- ում հեշտությամբ տեղադրել բոլոր մեծատառերը:

Excel- ի համար նախատեսված գործիքներ - Ներառում է ավելի քան 300 հարմար գործիքներ Excel-ի համար: Ամբողջական հնարավորությունների անվճար փորձարկում 30- օր, վարկային քարտ չի պահանջվում: Անվճար փորձարկում հիմա:

1, Ընտրեք այն տիրույթը, որտեղ մեծ տարածք պետք է տեղադրեք մինչև մեծատառերը, և կտտացրեք այն Կուտոլս > Տեքստ > Ավելացրեք տեքստ, Տեսեք,

2, Բացելով Ավելացնել տեքստ երկխոսության վանդակում, մուտքագրեք մի տարածք մեջ Տեքստ տուփը, ստուգիր Միայն ավելացնել ընտրանքին եւ ընտրել 1-ին տառը մեծ է - ից Միայն ավելացնել բացվող ցուցակ:

3. Սեղմեք Ok յուրաքանչյուր մեծատառից առաջ տարածք տեղադրելու կոճակը, ինչպես ցույց է տրված հետևյալ էկրանին.
փաստաթուղթ ավելացնել մեծություններ 7-րդ մեծից առաջ

Excel- ի համար նախատեսված գործիքներ - Ներառում է ավելի քան 300 հարմար գործիքներ Excel-ի համար: Ամբողջական հնարավորությունների անվճար փորձարկում 30- օր, վարկային քարտ չի պահանջվում: Get It Now

NotesԱյս մեթոդը նաև տարածք է ավելացնելու բջիջների սկզբում, եթե առաջին տառը մեծ է: Կարող եք դիմել Կուտոլս > Տեքստ > Հեռացնել տարածությունները ընտրված բջիջներից բոլոր առաջատար տարածքները հեռացնելու համար:


Առնչվող հոդված:


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (9)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես օգնության կարիք ունեմ excel-ում, ես ուզում եմ գտնել մեծատառերը բջիջում: օրինակ՝ Sagar Paul MBA 16:04 Ես ուզում եմ, որ MBA-ն ընդգծվի
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հուսով եմ, որ դուք կարող եք տեսնել այն և փորձարկել այն: Sub Test() Dim Rg-ը որպես միջակայք, xCell-ը որպես միջակայք Dim i Քանի դեռ երկար է Dim xChar Որպես տողերի հավաքածու Rg = Application.Selection յուրաքանչյուր xCell-ի համար Rg-ում For i = 1 To xCell.Characters.Count xChar = xCell.Characters(i, 1): ).Text If Asc(xChar) > 64 And Asc(xChar) < 91 Այնուհետեւ xCell.Characters(i, 1).Font.Color = vbRed End If Next Next End Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև ձեզ, ձեր կոդը ֆանտաստիկ է աշխատում: Գիտե՞ք ինչպես հարմարեցնել 20140723 կոդը՝ մի քանի թերթերի վրա աշխատելու համար: Ես կցանկանայի մեծատառերի միջև բացատներ ավելացնել ամբողջ աշխատանքային գրքում: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ Ձեզ

Նախ, շատ շնորհակալ եմ ձեր կոդի օրինակի և բացատրությունների համար: Դա շատ լավ է աշխատում իմ դեպքում:

Ես պարզապես ունեմ 1 խնդիր, տողերից մի քանիսը պարունակում են URL-ի նման բառեր, որոնք չպետք է առանձնացվեն:
Տեսնու՞մ եք միջոց բացատներ ավելացնելու օրինակից բացառությամբ «URL»-ի:

Շատ լավ կլինի, եթե կարողանաք օգնել: Ես արդեն որոշ ժամանակ փորձել եմ, բայց չգիտեմ, թե ինչպես լուծել դա..


Best regards
լուկա
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Շնորհակալություն ձեր մեկնաբանության և խորհուրդների համար: Ես ուղարկել եմ ձեր առաջարկը Kutools նախագծի թիմին, վստահ եմ, որ նրանք շուտով կբարելավեն այն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Գտե՞լ եք լուծում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ուզում եմ ձեզ հարցնել, թե արդյոք լուծում եք գտել ձեր գործի համար, եթե լուծում եք գտել, խնդրում եմ ինձ տրամադրեք դա
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս ֆունկցիան լուծում է երկու խնդիր, որոնք տվյալ լուծումը չի ներառում.
1. ոչ անգլերեն տեքստ (դիակրիտիկ նշաններով)
2. հաջորդական մեծատառեր, որոնք իրենցից հետո չպետք է ունենան բացատներ

Անձնական ֆունկցիա AddSpaces (sText As String) As String
Զետեղում է բացատ մեծատառից անմիջապես առաջ, բացառությամբ այն դեպքերի, երբ հաջորդական նիշերից յուրաքանչյուրը մեծատառ է:
Վերջին թարմացումը՝ 2022-07-04
'
Dim sRet որպես տող, i որպես ամբողջ թիվ, sChar որպես տող, bPrevWasUCase որպես բուլյան

sRet = ձախ (sText, 1)
For i = 2 To Len (sText)
sChar = Mid (sText, i, 1)
Եթե ​​sChar = UCase(sChar) Եվ ոչ bPrevWasUCase Այնուհետեւ
sRet = sRet & " " & sChar
bPrevWasUCase = Ճշմարիտ
Ուրիշ
sRet = sRet & sChar
bPrevWasUCase = Սխալ
Վերջ: Եթե
Հաջորդ i

AddSpaces= sRet
Վերջի գործառույթը`
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ բարեկամ,

Շնորհակալություն ձեր կիսվելու համար: Ես փորձեցի ձեր VBA կոդը, բայց այն չի աշխատում: Մեր VBA կոդը կարող է մշակել ոչ անգլերեն տեքստը: Ես փորձարկել եմ ֆրանսերեն տեքստը և բացատները հաջողությամբ տեղադրվել են մեծատառերից առաջ:

Sincerely,
Mandy
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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