Ar an drochuair, níl aon bhealach díreach ann duit spásanna a chur roimh na litreacha cás uachtair in Excel, ach, is féidir leat Feidhm Sainmhínithe ag Úsáideoir a chruthú chun an tasc seo a réiteach.

1. Gníomhachtaigh do bhileog oibre ina bhfuil na teaghráin téacs a theastaíonn uait spásanna a chur leo.

2. Coinnigh síos an ALT + F11 eochracha a oscailt Fuinneog Microsoft Visual Basic for Applications.

3. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an mhodúil.

Cód VBA: Cuir isteach spásanna roimh cheannlitreacha

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. Ansin sábháil agus dún an cód seo, téigh ar ais chuig an mbileog oibre, agus cuir isteach an fhoirmle seo = breiseáin (A1) isteach i gcill bhán seachas do chuid sonraí, féach an scáileán:

5. Agus ansin tarraing an láimhseáil líonta thar an raon a theastaíonn uait an fhoirmle seo a bheith ann, gheobhaidh tú go gcuirtear na spásanna isteach roimh do gach ceannlitir.

Bain spásanna tosaigh / rianaithe / breise i gcealla go héasca

Kutools for Excel'S Bain Spásanna cuireann fóntais ar chumas úsáideoirí Excel gach spás tosaigh, spás ráille, spásanna breise, nó gach spás a bhaint go tapa ó chealla roghnaithe.

Seo cód VBA eile ar féidir leat fabhar a dhéanamh duit, déan mar a leanas:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Fuinneog Microsoft Visual Basic for Applications.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an mhodúil.

Cód VBA: Cuir isteach spásanna roimh cheannlitreacha

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. Ansin brúigh F5 eochair chun an cód seo a fhorghníomhú, tiocfaidh bosca pras amach chun ligean duit raon sonraí a theastaíonn uait a úsáid a roghnú.

4. Agus ansin cliceáil OK chun an bosca pras seo a dhúnadh, cuireadh na spásanna isteach roimh na príomhlitreacha ag an am céanna, féach an scáileán:

Kutools for Excel'S Cuir Téacs is féidir le fóntais cabhrú leat na macraí VBA a sheachbhóthar agus spás a chur isteach roimh gach ceannlitir go héasca in Excel.

1. Roghnaigh an raon ina gcuirfidh tú spás isteach roimh cheannlitreacha, agus cliceáil ar an Kutools > Téacs > Cuir Téacs. Féach an pictiúr:

2. Sa bhosca dialóige Add Text, oscail, clóscríobh spás isteach sa Téacs bosca, seiceáil an Ná cuir ach leis an rogha agus roghnaigh Tá an chéad litir uachtarach ó na Ná cuir ach le liosta anuas.

3. Cliceáil ar an Ok cnaipe chun spás a chur isteach roimh gach ceannlitir mar a thaispeántar an griangraf seo a leanas:

nótaí: Cuirfidh an modh seo spás ag tús na gcealla freisin más caipiteal an chéad litir. Is féidir leat iarratas a dhéanamh Kutools > Téacs > Bain Spásanna chun na spásanna tosaigh go léir a bhaint de chealla roghnaithe.

Conas spásanna a chur leis tar éis camóga in Excel?