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

Sut i ddileu pob llinell wag neu ddim ond y llinell gyntaf yn y gell yn Excel?

Efallai y byddwch yn derbyn llyfr gwaith gyda llinellau lluosog yn cymysgu â bylchau mewn celloedd. Sut i ddileu'r llinellau gwag hyn mewn celloedd? A beth am ddileu'r llinell gyntaf yn unig? Bydd yr erthygl hon yn eich helpu i ddelio ag ef gam wrth gam.

Dileu'r holl linellau gwag mewn celloedd gyda chod VBA
Dileu'r llinell gyntaf yn unig mewn celloedd sydd â chod VBA


Dileu'r holl linellau gwag mewn celloedd gyda chod VBA


Fel y dangosir yn y screenshot isod, i ddileu pob llinell wag yn y celloedd, gallwch redeg y cod VBA canlynol i'w wneud.

1. Gwasgwch y Alt + F11 allweddi ar eich bysellfwrdd, yna mae'n agor a Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch a gludwch y cod VBA isod i'r Modiwlau ffenestr.

Cod VBA: Dileu'r holl linellau gwag mewn celloedd

Sub DoubleReturn()
Dim xRng As Range, xCell As Range
Dim I As Integer
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
  For I = 1 To Len(xCell) - Len(WorksheetFunction.Substitute(xCell, Chr(10), ""))
   xCell = Replace(xCell, Chr(10) + Chr(10), Chr(10))
  Next
Next
End Sub

3. Gwasgwch y F5 allwedd i redeg y cod. Yna dewiswch y celloedd gyda llinellau gwag y byddwch yn eu dileu yn y Kutools ar gyfer Excel blwch deialog. Ac yn olaf cliciwch y OK botwm.

Yna gallwch weld yr holl linellau gwag yn cael eu dileu o gelloedd penodedig fel y dangosir y sgrin isod. Mae'r testunau yn dal i fod mewn gwahanol linellau.


Dileu'r llinell gyntaf yn unig mewn celloedd sydd â chod VBA

Fel y dangosir yn y screenshot isod, i ddileu'r llinell gyntaf yng nghell A2 ac A3, gall y cod VBA canlynol helpu.

1. Gwasgwch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch a gludwch y cod VBA isod i'r Modiwlau ffenestr.

Cod VBA: Dileu'r llinell gyntaf mewn celloedd yn unig

Option Explicit
Sub RemoveFirstLine(ByRef Target As Range)
    Dim xCell As Range
    For Each xCell In Target.Cells
        xCell.Value = Right(xCell.Value, Len(xCell.Value) - InStr(1, xCell.Value, vbLf))
    Next
End Sub

Sub StartRemove()
Dim xRng As Range
   On Error Resume Next
   Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
   If xRng Is Nothing Then Exit Sub
   On Error Resume Next
   RemoveFirstLine xRng
End Sub

3. Gwasgwch y F5 allwedd i redeg y cod. Yn y popping up Kutools ar gyfer Excel blwch deialog, dewiswch y celloedd y mae angen i chi eu dileu yn unig y llinell gyntaf, ac yna cliciwch ar y OK botwm.

Yna gallwch weld bod yr holl linellau cyntaf yn cael eu dileu o gelloedd penodol fel y dangosir isod.


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 Swyddfa / Excel 2007-2019 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 (5)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
mae hyn yn gweithio'n anhygoel. Sut alla i addasu'r cod i gael gwared ar y llinellau yn unig, heb ddechrau gyda nodau rhifol?

Diolch a gorau,
Jack
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Jack,
Mae'n ddrwg gennym ni all eich helpu gyda hynny eto. Diolch i chi am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ydych chi'n gwybod sut i addasu hyn i gael gwared ar y llinell olaf yn lle'r llinell gyntaf, os gwelwch yn dda? TIA
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Jeg forstår desværre ikke et kvæk af ovenstående. Darganfyddiadau der ikke en nem og ligetil måde yn fjerne tomme linier i Exell? Ystyr geiriau: Helst uden koder og andet mystisk!

Yr eiddoch yn gywir
Lene
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,
Os nad ydych am gadw'r testunau gwreiddiol mewn gwahanol linellau mewn celloedd, gallwch gymhwyso'r dulliau canlynol i'w wneud.
1. Defnyddiwch y nodwedd Find & Replace:
Pwyswch y bysellau Ctrl + H. Yn y blwch deialog Canfod ac Amnewid sy'n agor, cliciwch i actifadu'r Darganfod beth blwch. Daliwch y fysell Alt i lawr wrth deipio 010 ar y bysellbad rhifol. Cadwch y blwch Replace with yn wag, cliciwch ar y botwm Amnewid Pawb. Ond mae'r testunau i gyd wedi'u canolbwyntio ar yr un llinell.
2. Defnyddiwch y fformiwla ganlynol mewn colofn helpwr:
=SUBSTITUTE(A1, CONCATENATE(CHAR(13),CHAR(10),CHAR(13),CHAR(10)),CONCATENATE(CHAR(13),CHAR(10)))
lle A1 yw'r gell rydych chi am ei phrosesu.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir