Kako izbrisati vse prazne vrstice ali samo prvo vrstico v celici v Excelu?
Morda boste prejeli delovni zvezek z več vrsticami, ki se meša s praznimi mesti v celicah. Kako izbrisati te prazne vrstice v celicah? Kaj pa izbris samo prve vrstice? Ta članek vam bo pomagal korak za korakom.
Izbrišite vse prazne vrstice v celicah s kodo VBA
Izbrišite samo prvo vrstico v celicah s kodo VBA
Izbrišite vse prazne vrstice v celicah s kodo VBA
Kot je prikazano na spodnjem posnetku zaslona, lahko za izbris vseh praznih vrstic v celicah zaženete naslednjo kodo VBA.
1. Pritisnite druga + F11 tipke na tipkovnici, nato pa odpre a Microsoft Visual Basic za aplikacije okno.
2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. Nato kopirajte in prilepite spodnjo kodo VBA v Moduli okno.
Koda VBA: v celicah izbrišite vse prazne vrstice
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. Pritisnite F5 tipko za zagon kode. Nato izberite celice s praznimi vrsticami, ki jih boste izbrisali v Kutools za Excel pogovorno okno. In končno kliknite OK gumb.
Nato lahko vidite, da so vse prazne vrstice izbrisane iz določenih celic, kot je prikazano na spodnji sliki. Besedila se še vedno nahajajo v različnih vrsticah.
Izbrišite samo prvo vrstico v celicah s kodo VBA
Kot je prikazano na spodnjem posnetku zaslona, lahko za brisanje prve vrstice v celici A2 in A3 pomaga naslednja koda VBA.
1. Pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. Nato kopirajte in prilepite spodnjo kodo VBA v Moduli okno.
Koda VBA: v celicah izbrišite samo prvo vrstico
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. Pritisnite F5 tipko za zagon kode. V pojavnem oknu Kutools za Excel pogovornem oknu izberite celice, ki jih želite izbrisati, samo prvo vrstico in nato kliknite OK gumb.
Nato lahko vidite, da so vse prve vrstice izbrisane iz določenih celic, kot je prikazano spodaj.
Povezani članek:
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!