Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako izbrisati iste vrstice ali razpone v več listih v Excelu?

Ta članek priporoča dva načina brisanja istih vrstic ali razponov na več listih hkrati v Excelu. Prosimo, naredite na naslednji način.

Izbrišite iste vrstice ali razpone na več listih z združevanjem vseh listov

Izbrišite iste vrste ali razpone na več listih s kodami VBA


Preprosto izbrisati vse prazne vrstice v izbranih obsegih / listih ali aktivne / vse liste v Excelu

Kot spodnji posnetek zaslona lahko izbrišete vse prazne vrstice v izbranem obsegu, aktivnem listu, izbranih listih ali vseh listih z le nekaj kliki v Excelu.

Kutools za Excel vključuje več kot 300 priročno orodje Excel. Prosti brez omejitev v 60 dneh. Prenesite brezplačno preskusno različico zdaj


Izbrišite iste vrstice ali razpone na več listih z združevanjem vseh listov


Zelo preprosto je združiti vse delovne liste in istočasno izbrisati iste vrstice ali obsege s teh delovnih listov.

1. Z desno miškino tipko kliknite jeziček stanja v trenutni delovni zvezki in nato kliknite Izberite vse liste iz menija z desnim klikom.

2. Zdaj so izbrane vse delovne liste, če v delovnem listu izbrišete določene vrstice ali obsege, se iste vrstice ali obsege na drugih delovnih listih zbrišejo skupaj.

3. Po brisanju vrstic ali razpone med vsemi listi, kliknite desno miškino tipko na kartici stanja in nato kliknite Razdruži liste iz menija z desno miškino tipko, da razdružite vse delovne liste.


Izbrišite iste vrste ali razpone na več listih s kodami VBA

Poleg zgornje metode lahko za brisanje istih vrstic ali razpone na več delovnih mestah zaženete naslednje VBA kode.

Izbrišite iste vrstice v več listih

1. Pritisnite druga + F11 tipke hkrati odpreti Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. Nato kopirajte in prilepite naslednjo kodo VBA v okno Code.

VBA koda: Brisanje istih vrstic v več listih V Excelu

Sub bleh()
    Dim xWs As Worksheet
    Set xWs = ActiveSheet
    ThisWorkbook.Worksheets.Select
    Rows("4:5").Select
    Selection.Delete
    xWs.Select
End Sub

Opombe: V kodi VBA 4: 5 pomeni, da sta vrstici 4 in 5 izbrisani v več delovnih listih v trenutni delovni zvezki. Lahko jih spremenite v svojo želeno vrstico.

3. Pritisnite F5 ključ za zagon kode, nato pa se navedene vrstice takoj izbrišejo z vseh listov v trenutni delovni zvezki.

Izbrišite iste razpone v več listih

Če želite izbrisati iste razpone v več listih, lahko poskusite pod kodo VBA.

VBA koda: Izbrišite isto območje v več listih

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 Sub

Ko kopirate in prilepite kodo VBA v modul, pritisnite F5 ključ za zagon kode in pri pojavu Kutools za Excel pogovorno okno, izberite obseg, ki ga boste izbrisali čez več listov, in nato kliknite OK gumb.

Zdaj se vrednosti celic v tem določenem območju takoj izbrišejo iz vseh listov v trenutni delovni zvezek.


Sorodni članki:


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.