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 Sub3. 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 Sub3. 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:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!
