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) ձեր տվյալներից բացի դատարկ բջիջի մեջ տես նկարի նկարը.

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

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

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

Ահա ևս մեկ 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 Այս կոդը կատարելու բանալին, կհայտնվի հուշման տուփ, որը հնարավորություն կտա ձեզ ընտրել տվյալների տիրույթը, որը ցանկանում եք օգտագործել:

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

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

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

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

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

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

Ինչպե՞ս Excel- ում ստորակետերից հետո բացատներ ավելացնել: