Hvordan indsættes eller slettes delrække i Excel?
Det er nemt at indsætte eller slette en hel række fra regnearket i Excel. Men hvordan indsætter eller sletter man kun en delvis række fra regnearket? Denne artikel vil hjælpe dig.
Indsæt eller slet delvis række med funktionen Indsæt/slet celler
Indsæt eller slet delvis række med VBA-kode
Indsæt eller slet delvis række med funktionen Indsæt/slet celler
For eksempel vil du indsætte eller slette en delrække i række 5 med tre celler, skal du gøre som følger.
Indsæt delvis række
1. Vælg tre celler i række 5 (de valgte celler skal svare til de indsatte celler), og klik derefter på indsatte > Indsæt celler under Home fanen. Se skærmbillede:
2. i indsatte dialogboksen, vælg Skift celler til højre or Flyt cellerne ned valgmulighed, og klik derefter på OK .
Derefter indsættes en delrække med tre celler som vist nedenfor.
Slet delvis række
1. Når du har valgt den delrække, du vil slette, skal du klikke på Slet > Slet celler under Home fane.
2. i Slette dialogboksen, vælg Skift celler til venstre or Skift celler op som du har brug for, og klik derefter på OK knap. Se skærmbillede:
Derefter slettes den valgte delrække.
Indsæt eller slet delvis række med VBA-kode
Du kan også anvende følgende VBA-koder til at indsætte eller slette delvis række i Excel.
1. Vælg en celle i en bestemt række, du vil indsætte delvise rækker, og tryk derefter på andre + F11 at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Og kopier derefter og indsæt nedenstående VBA-kode i Kode vindue.
VBA-kode: Indsæt delvis række i Excel
Sub InsertRow()
Dim I As Long
On Error Resume Next
LInput:
I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
If I < 1 Then
MsgBox "Error, please retype", vbInformation, "Kutools for Excel"
GoTo LInput
End If
Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Insert xlDown
End Sub
Bemærk: I VBA-koden betyder nummer 1, at den delrække vil blive indsat fra den første kolonne, og tallet 3 betyder, at den vil indsætte tre celler mellem kolonnerne. Du kan ændre dem baseret på dine behov.
3. Tryk på F5 nøgle for at køre koden, derefter a Kutools til Excel dialogboksen dukker op, indtast venligst antallet af påkrævede rækker, du har brug for, og klik derefter på OK .
Hvis du indtaster 3 i boksen, skal du efter klikke på OK knappen, vil tre delvise rækker med tre kolonner blive indsat i den angivne position på dit regneark.
For at slette delvis række kan du køre nedenstående VBA-kode.
VBA-kode: Slet delvis række i Excel
Sub DelActiveCell_Row()
Dim I As Long
On Error Resume Next
LInput:
I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
If I < 1 Then
MsgBox " Error, please retype", vbInformation, "Kutools for Excel"
GoTo LInput
End If
Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Delete xlShiftUp
End Sub
Efter at have kørt koden, er der også en Kutools til Excel dialogboksen dukker op for at minde dig om, hvor mange delrækker du vil slette, indtast venligst antallet og klik på OK knap. Derefter slettes de angivne delrækker med det samme.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!