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

Conas spásanna a chur isteach roimh cheannlitreacha ar fheabhas?

Má cheaptar go bhfuil liosta de théada téacs agat a bhaintear gach spás idir na focail de thaisme, mar seo: IonsáighBlankRowsIdirSonraí, agus anois ba mhaith leat na spásanna a chur roimh gach litir le ceannlitreacha chun na focail a scaradh mar Cuir Sraitheanna Bána Idir Sonraí. Conas a d’fhéadfá spásanna a chur os comhair na bpríomhlitreacha go tapa in ionad spásanna a chlóscríobh ceann ar cheann in Excel?


Cuir isteach spásanna roimh phríomhlitreacha le Feidhm Sainithe ag an Úsáideoir

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:
doc-add-space-before-uppercase-1

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.
doc-add-space-before-uppercase-1

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

Kutools le haghaidh 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.


bain spás 1

Cuir isteach spásanna roimh cheannlitreacha le cód VBA

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ú.
doc-add-space-before-uppercase-1

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:
doc-add-space-before-uppercase-1


Cuir isteach spás roimh gach ceannlitir le Kutools le haghaidh Excel

Kutools le haghaidh 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.

Kutools le haghaidh Excel - Áirítear níos mó ná 300 uirlisí handy do Excel. Gné iomlán triail saor in aisce 30-lá, níl aon chárta creidmheasa ag teastáil! Triail In Aisce Anois!

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:
doc spásanna a chur leis roimh uachtair 7

Kutools le haghaidh Excel - Áirítear níos mó ná 300 uirlisí handy do Excel. Gné iomlán triail saor in aisce 30-lá, níl aon chárta creidmheasa ag teastáil! Get sé anois

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.


Airteagal gaolmhar:


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun officetab
Sórtáil tuairimí de réir
Comments (9)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Teastaíonn cabhair uaim in Excel Ba mhaith liom Cás Uachtair a aimsiú i gcill. mar shampla: Sagar Paul MBA 16:04 Ba mhaith liom go gcuirfí béim ar MBA
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá súil agam gur féidir leat é a fheiceáil agus triail a thabhairt dó. Fo-Thriail() Dim Rg Mar Raon, xCell Mar Raon Dim i Chomh fada Dim xChar Mar Thacar Teaghrán Rg = Feidhmchlár.Roghnú Do Gach xCell In Rg Do i = 1 Go xCell.Characters.Count xChar = xCell.Characters(i, 1 ).Text If Asc(xChar) > 64 Agus Asc(xChar) < 91 Ansin xCell.Characters(i, 1).Font.Color = vbRed Deireadh Más Chéad Chéad Eile Fo
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit ansin, oibríonn do chód iontach. An bhfuil a fhios agat conas cód 20140723 a oiriúnú chun oibriú ar leatháin iolracha? Ba mhaith liom spásanna a chur idir ceannlitreacha tríd an leabhar oibre ar fad. Go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia dhuit

Go raibh maith agat ar dtús as do shampla cód agus na mínithe. Oibríonn sé go han-mhaith do mo chás.

Níl agam ach 1 Fadhb, tá focail cosúil le URL i gcuid de na Teaghráin, nár cheart a scaradh.
An bhfeiceann tú bealach seachas "URL" mar shampla ó spásanna a chur leis?

Bheadh ​​​​sé an-deas más féidir leat cabhrú. Bhain mé triail as tamall cheana féin, ach níl a fhios agam conas é seo a réiteach ..


Dea-mhéin
Luke
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
Go raibh maith agat as do chuid tuairimí agus comhairle. Tá do mholadh seolta agam chuig foireann tionscadail Kutools, táim cinnte go bhfeabhsóidh siad é go luath.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Aimsíodh réiteach?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi ag iarraidh fiafraí díot an bhfuair tú réiteach ar do chás, má d'aimsigh tú réiteach tabhair dom é le do thoil
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Láimhseálann an fheidhm seo dhá fhadhb nach gclúdaíonn an réiteach tugtha:
1. téacs neamh-Bhéarla (le marcanna diacriticiúla)
2. ceannlitreacha comhleanúnacha nár cheart go mbeadh spásanna acu ina ndiaidh

` Feidhm Phríobháideach AddSpaces(sText Mar Teaghrán) Mar Teaghrán
' Ionsáigh spás díreach roimh phríomhlitir, ach amháin nuair a dhéantar caipitliú ar charachtair i ndiaidh a chéile.
' An Nuashonrú Deiridh: 2022-07-04
'
Dim sRet As Teaghrán, i Mar Shlánuimhir, sChar As String, bPrevWasUCase As Boole

sRet = Ar Chlé(sText, 1)
Le haghaidh i = 2 Go Len(sText)
sChar = Lár(sText, i, 1)
Más rud é sChar = UCase(sChar) Agus Ní bPrevWasUCase Ansin
sRet = sRet & " " & sChar
bPrevWasUCase = Fíor
Eile
sRet = sRet & sChar
bPrevWasUCase = Bréagach
Deireadh Má
Ar Aghaidh i

AddSpaces= sRet
Feidhm Deiridh`
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit a chara,

Go raibh maith agat as do sciar. Bhain mé triail as do chód VBA, ach ní oibríonn sé. Is féidir lenár gcód VBA an téacs neamh-Bhéarla a láimhseáil. Tá tástáil déanta agam ar an téacs Fraincise agus cuirtear spásanna isteach go rathúil roimh na ceannlitreacha.

Le meas,
Mandy
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL