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:
- 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?
Nejlepší nástroje pro produktivitu v kanceláři
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...
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!