Yn anffodus, nid oes unrhyw ffordd uniongyrchol ichi ychwanegu lleoedd cyn y llythrennau bras yn Excel, ond gallwch greu Swyddogaeth Diffiniedig Defnyddiwr i ddatrys y dasg hon.

1. Ysgogwch eich taflen waith sy'n cynnwys y tannau testun rydych chi am ychwanegu bylchau.

2. Daliwch i lawr y ALT + F11 allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.

3. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr modiwl.

Cod VBA: Mewnosodwch fannau cyn priflythrennau

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. Yna arbed a chau'r cod hwn, ewch yn ôl i'r daflen waith, a nodi'r fformiwla hon = addpaces (A1) i mewn i gell wag ar wahân i'ch data, gweler y screenshot:

5. Ac yna llusgwch yr handlen llenwi dros yr ystod rydych chi am gynnwys y fformiwla hon, fe gewch chi i'r lleoedd gael eu mewnosod cyn eich prif lythyren.

Tynnwch fannau arwain / llusgo / ychwanegol mewn celloedd yn hawdd

Kutools ar gyfer Excel's Tynnwch Fannau mae cyfleustodau yn galluogi defnyddwyr Excel i gael gwared ar yr holl ofod blaenllaw, gofod llusgo, lleoedd ychwanegol, neu'r holl fannau o gelloedd dethol yn gyflym.

Dyma god VBA arall a all ffafrio chi, gwnewch fel a ganlyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr modiwl.

Cod VBA: Mewnosodwch fannau cyn priflythrennau

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. Yna pwyswch F5 yn allweddol i weithredu'r cod hwn, bydd blwch prydlon yn popio allan i adael i chi ddewis ystod ddata rydych chi am ei defnyddio.

4. Ac yna cliciwch OK i gau'r blwch prydlon hwn, mae'r lleoedd wedi'u mewnosod cyn y priflythrennau ar unwaith, gweler y screenshot:

Kutools ar gyfer Excel's Ychwanegu Testun gall cyfleustodau eich helpu i osgoi'r macros VBA a mewnosod lle cyn pob priflythyren yn hawdd yn Excel.

1. Dewiswch yr ystod lle byddwch chi'n mewnosod lle cyn priflythrennau, a chliciwch ar y Kutools > Testun > Ychwanegu Testun. Gweler y screenshot:

2. Yn y blwch deialog Ychwanegu Testun agoriadol, teipiwch le i mewn i'r Testun blwch, gwiriwch y Dim ond ychwanegu at yr opsiwn a dewis Mae'r llythyr 1af yn uchaf oddi wrth y Dim ond ychwanegu at rhestr ostwng.

3. Cliciwch y Ok botwm i fewnosod lle cyn pob priflythyren fel y dangosir y sgrinlun canlynol:

Nodiadau: Bydd y dull hwn hefyd yn ychwanegu lle ar ddechrau celloedd os yw'r llythyren gyntaf yn gyfalaf. Gallwch wneud cais Kutools > Testun > Tynnwch Fannau i gael gwared ar yr holl fannau blaenllaw o gelloedd dethol.

Sut i ychwanegu lleoedd ar ôl atalnodau yn Excel?