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

Tento článek doporučuje dva způsoby odstranění identických řádků nebo rozsahů na více listech současně 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ů současně odstranit identické řádky nebo rozsahy.

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 identické řádky nebo rozsahy ve více 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.

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

Hodnocení: 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.

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 for 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:

• Jak odstranit řádky s chybějícími / prázdnými hodnotami v určitých sloupcích v aplikaci Excel?
• Jak odstranit řádky, pokud je buňka větší / menší než určitá hodnota v aplikaci Excel?
• Jak odstranit všechny řádky kromě prvního řádku záhlaví v aplikaci Excel?
• Jak odstranit všechny řádky pod určitým řádkem nebo aktivní buňkou v aplikaci Excel?