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

Sut i fewnosod bylchau cyn priflythrennau yn excel?

Gan dybio bod gennych chi restr o dannau testun y mae'r holl fylchau rhwng y geiriau yn cael eu tynnu ar ddamwain, fel hyn: MewnosodBlankRowsRhwngData, ac yn awr rydych chi am ychwanegu'r bylchau cyn pob llythyren gyda phriflythrennau i wahanu'r geiriau fel Mewnosod Rhesi Gwag Rhwng Data. Sut allech chi ychwanegu bylchau o flaen y priflythrennau yn gyflym yn lle bylchau math fesul un yn Excel?


Mewnosod bylchau cyn priflythrennau gyda Swyddogaeth Diffiniedig Defnyddiwr

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

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

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.


ad tynnu gofod 1

Mewnosod lleoedd cyn priflythrennau gyda chod VBA

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

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


Mewnosodwch le cyn pob priflythyren gyda Kutools ar gyfer Excel

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.

Kutools ar gyfer Excel - Yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel. Nodwedd llawn treial rhad ac am ddim 30-diwrnod, dim angen cerdyn credyd! Treial Am Ddim Nawr!

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:
doc ychwanegu lleoedd cyn uppercase 7

Kutools ar gyfer Excel - Yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel. Nodwedd llawn treial rhad ac am ddim 30-diwrnod, dim angen cerdyn credyd! Get It Now

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.


Erthygl gysylltiedig:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Office / Excel 2007-2021 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (9)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
dwi angen help yn excel dwi eisiau ffeindio Priflythrennau mewn cell. er enghraifft: Sagar Paul MBA 16:04 Rwyf am i MBA gael ei amlygu
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n gobeithio y gallwch chi ei weld a rhoi prawf arno. Is-brawf() Dim RG Fel Ystod, xCell Fel Ystod Dim i Mor Hir Dim xChar Fel y Set Llinynnol RG = Cymhwysiad.Dewisiad Ar Gyfer Pob xCell Mewn RG Ar gyfer i = 1 I xCell.Characters.Count xChar = xCell.Characters(i, 1 ).Text If Asc(xChar) > 64 Ac Asc(xChar) < 91 Yna xCell.Characters(i, 1).Font.Color = vbRed Diwedd Os Nesaf Diwedd Nesaf Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae'ch cod yn gweithio'n wych. Ydych chi'n gwybod sut i addasu cod 20140723 i weithio ar daflenni lluosog? Hoffwn ychwanegu bylchau rhwng priflythrennau drwy'r gweithlyfr cyfan. Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo

Yn gyntaf diolch yn fawr am eich enghraifft cod a'r esboniadau. Mae'n gweithio'n dda iawn ar gyfer fy achos i.

Fi jyst wedi 1 Broblem, mae rhai o'r Llinynnau yn cynnwys geiriau fel URL, na ddylid eu gwahanu.
Ydych chi'n gweld ffordd i eithrio er enghraifft "URL" rhag ychwanegu bylchau?

Byddai'n braf iawn os gallwch chi helpu. Ceisiais ychydig yn barod, ond nid wyf yn gwybod sut i ddatrys hyn ..


Cofion gorau
luca
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Diolch am eich sylwadau a chyngor. Rwyf wedi anfon eich awgrym at dîm prosiect Kutools, rwy'n siŵr y byddant yn ei wella yn fuan.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Wedi dod o hyd i ateb?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo eisiau gofyn ichi a ddaethoch o hyd i ateb i'ch achos, os daethoch o hyd i ateb, rhowch hynny i mi
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r swyddogaeth hon yn delio â dwy broblem nad yw'r datrysiad a roddwyd yn eu cwmpasu:
1. testun di-Saesneg (gyda marciau diacritig)
2. priflythrennau olynol na ddylai fod bylchau ar eu hôl

` Swyddogaeth Breifat AddSpaces(sText Fel Llinyn)Fel Llinynnol
' Mewnosod bwlch yn union cyn prif lythyren, ac eithrio pan fydd nodau olynol yn cael eu priflythrennu.
' Wedi ei ddiweddaru ddiwetha': 2022-07-04
'
Dim sRet Fel Llinynnol, i Fel Cyfanrif, sChar Fel Llinynnol, bPrevWasUCase Fel Boole

sRet = Chwith(sText, 1)
Ar gyfer i = 2 I Len(sText)
sChar = Canolbarth(sText, i, 1)
Os sChar = UCase(sChar) Ac Ddim yn bPrevWasUCase Yna
sRet = sRet & " " & sChar
bPrevWasUCase = Gwir
arall
sRet = sRet & sChar
bPrevWasUCase = Gau
Gorffennwch Os
Nesaf i

AddSpaces= sRet
Swyddogaeth Diwedd`
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo ffrind,

Diolch am eich cyfran. Ceisiais eich cod VBA, ond nid yw'n gweithio. Gall ein cod VBA drin y testun nad yw'n Saesneg. Rwyf wedi profi'r testun Ffrangeg ac mae bylchau'n cael eu mewnosod yn llwyddiannus cyn y prif lythrennau.

Yn gywir,
Mandy
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL