Hvordan slettes de samme rækker eller intervaller på tværs af flere ark i Excel?
Denne artikel anbefaler to metoder til at slette samme rækker eller områder på tværs af flere ark på samme tid i Excel. Gør som følger.
Slet de samme rækker eller intervaller på tværs af flere ark ved at gruppere alle ark
Slet de samme rækker eller intervaller på tværs af flere ark med VBA-koder
Slet de samme rækker eller intervaller på tværs af flere ark ved at gruppere alle ark
Det er let at gruppere alle regneark og derefter slette de samme rækker eller intervaller fra disse regneark på samme tid.
1. Højreklik på en hvilken som helst arkfane i den aktuelle projektmappe, og klik derefter på Vælg Alle ark fra højreklikmenuen.
2. Nu er alle regneark valgt. Hvis du sletter bestemte rækker eller områder i et regneark, slettes de samme rækker eller områder i andre regneark sammen.
3. Når du har slettet rækker eller intervaller på tværs af alle ark, skal du højreklikke på en arkfane og derefter klikke på Opdel gruppe ark fra højreklikmenuen for at opheve grupperingen af alle regneark.
Slet de samme rækker eller intervaller på tværs af flere ark med VBA-koder
Udover ovenstående metode kan du køre følgende VBA-koder for at slette de samme rækker eller områder på tværs af flere regneark.
Slet de samme rækker på tværs af flere ark
1. Trykke andre + F11 taster samtidigt for at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Kopier og indsæt derefter følgende VBA-kode i vinduet Kode.
VBA-kode: Slet de samme rækker på tværs af flere ark i Excel
Sub bleh()
Dim xWs As Worksheet
Set xWs = ActiveSheet
ThisWorkbook.Worksheets.Select
Rows("4:5").Select
Selection.Delete
xWs.Select
End SubBemærk: I VBA-koden betyder 4: 5, at række 4 og 5 slettes på tværs af flere regneark i den aktuelle projektmappe. Du kan ændre dem til den nødvendige række.
3. Trykke F5 nøgle for at køre koden, så slettes de angivne rækker straks fra alle ark i den aktuelle projektmappe.
Slet de samme områder på tværs af flere ark
For at slette samme områder på tværs af flere ark kan du prøve nedenstående VBA-kode.
VBA-kode: Slet det samme område på tværs af flere ark
Private Sub CommandButton2_Click()
Dim xRg As Range
Dim xTxt As String
Dim xWs As Worksheet
On Error Resume Next
Set xWs = ActiveSheet
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select the range you want to delete across multiple sheets:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
xRg.ClearContents
ThisWorkbook.Worksheets.Select
ActiveWindow.SelectedSheets.FillAcrossSheets xRg, xlFillWithContents
xWs.Select
End SubNår du har kopieret og indsat VBA-koden i modulet, skal du trykke på F5 nøgle til at køre koden, og når dukker op Kutools til Excel i dialogboksen, vælg det område, du vil slette på tværs af flere ark, og klik derefter på OK .
Nu slettes celleværdierne i dette specifikke område straks fra alle ark i den aktuelle projektmappe.
Relaterede artikler:
- Hvordan slettes rækker med manglende / tomme værdier i visse kolonner i Excel?
- Hvordan slettes rækker, hvis cellen er større / mindre end en bestemt værdi i Excel?
- Hvordan slettes alle rækker undtagen den første overskriftsrække i Excel?
- Hvordan slettes alle rækker under en bestemt række eller aktiv celle i Excel?
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!
