Přejít k hlavnímu obsahu

Jak odstranit stejné řádky nebo rozsahy na více listech v aplikaci Excel?

Tento článek doporučuje dvě metody odstranění stejných řádků nebo rozsahů na více listech najednou v aplikaci Excel. Postupujte prosím následovně.

Smažte stejné řádky nebo rozsahy z více listů seskupením všech listů
Odstraňte stejné řádky nebo rozsahy na více listech pomocí kódů VBA


Smažte stejné řádky nebo rozsahy z více listů seskupením všech listů

Je snadné seskupit všechny listy a poté z těchto listů odstranit stejné řádky nebo rozsahy najednou.

1. Klikněte pravým tlačítkem na libovolnou kartu listu v aktuálním sešitu a poté klikněte na Vyberte všechny listy z nabídky pravého tlačítka myši.

2. Nyní jsou vybrány všechny listy, pokud odstraníte určité řádky nebo rozsahy v listu, budou odstraněny společně stejné řádky nebo rozsahy v jiných listech.

3. Po odstranění řádků nebo rozsahů ze všech listů klikněte pravým tlačítkem na kartu listu a poté klikněte Oddělit listy z nabídky kliknutím pravým tlačítkem rozdělíte všechny listy.


Odstraňte stejné řádky nebo rozsahy na více listech pomocí kódů VBA

Kromě výše uvedené metody můžete spustit následující kódy VBA a odstranit stejné řádky nebo rozsahy na více pracovních listech.

Odstraňte stejné řádky na více listech

1. lis Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte a vložte následující kód VBA do okna Kód.

Kód VBA: Odstraňte stejné řádky na více listech v aplikaci Excel

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

Poznámka: V kódu VBA znamená 4: 5, že řádky 4 a 5 budou odstraněny z více listů v aktuálním sešitu. Můžete je změnit na požadovaný řádek.

3. lis F5 klíč ke spuštění kódu, poté budou zadané řádky okamžitě odstraněny ze všech listů v aktuálním sešitu.

Odstraňte stejné rozsahy na více listech

Chcete-li odstranit stejné rozsahy z více listů, můžete vyzkoušet níže uvedený kód VBA.

Kód VBA: Odstraňte stejný rozsah na více listech

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

Po zkopírování a vložení kódu VBA do modulu stiskněte F5 klíč ke spuštění kódu a v vyskakovacím okně Kutools pro Excel V dialogovém okně vyberte rozsah, který chcete odstranit na více listech, a poté klikněte na ikonu OK .

Nyní jsou hodnoty buněk v tomto konkrétním rozsahu okamžitě odstraněny ze všech listů v aktuálním sešitu.


Související články:

Nejlepší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

karta kte 201905


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I have a multiple data in multiple sheets and I want to delete some data with specific code in all sheets. kindly suggest.
This comment was minimized by the moderator on the site
Hi Ranit Mehta,
I don't quite understand your question. In the post, we provided a piece of VBA code for deleting data in the same range in multiple worksheets. I am not sure if this meets your needs.
The code is as follows:
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
This comment was minimized by the moderator on the site
Muchas gracias por el aporte, me ahorro mucho tiempo de trabajo.Bendiciones.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations