Jak vymazat celý list nebo zadaný rozsah v aplikaci Excel?

Tento článek vám ukáže, jak rychle vymazat obsah s nebo bez formátování buněk celého listu nebo zadaného rozsahu pomocí kódu VBA v aplikaci Excel.

Vymažte celý list pomocí kódu VBA v aplikaci Excel
Vymažte určený rozsah pomocí kódu VBA v aplikaci Excel

Vymažte celý list pomocí kódu VBA v aplikaci Excel

Níže uvedené kódy VBA vám pomohou vyčistit celý list s formátováním buněk nebo bez nich.

1. zmáčkni Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modula poté zkopírujte níže uvedený kód VBA do modulu.

Pokud chcete pouze vymazat obsah buňky, ale zachovat formátování, zkuste tento kód.

Kód VBA: Vymazání celého listu bez formátování buněk

Sub sbClearEntireSheetOnlyData()
Sheets("Sheet4").Cells.ClearContents
End Sub

Pokud chcete vymazat obsah i formátování buněk, může vám tento kód pomoci.

Kód VBA: Vymazání celého listu pomocí formátování buněk

Sub sbClearEntireSheet()
Sheets("Sheet4").Cells.Clear
End Sub

Pozor: V kódu je List4 název listu, ze kterého vymažete obsah. Změňte to prosím podle potřeby.

3. zmáčkni F5 spusťte kód kliknutím na tlačítko Spustit.

Poté je zadaný list s formátováním buněk nebo bez nich okamžitě vymazán.

Vymažte určený rozsah pomocí kódu VBA v aplikaci Excel

Chcete-li vymazat pouze zadaný rozsah v listu, můžete vyzkoušet následující kód VBA.

1. Otevřete list, ze kterého vymažete zadaný rozsah, a stiskněte Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modula poté zkopírujte níže uvedený kód VBA do modulu.

Vymazat rozsah, ale zachovat formátování, zkuste tento kód.

Kód VBA: Vymazání zadaného rozsahu bez formátování buněk

Sub sbClearCellsOnlyData()
Range("A1:C10").ClearContents
End Sub

Vymazat rozsah s formátováním buněk, použijte tento kód:

Kód VBA: Vymazání zadaného rozsahu pomocí formátování buněk

Sub sbClearCells()
Range("A1:C10").Clear
End Sub

Pozor: A1: C10 je rozsah, který v listu vymažete.

3. zmáčkni F5 klíč nebo klikněte na Běh tlačítko pro vymazání rozsahu.

Související články:

• Jak vymazat omezené hodnoty v buňkách v aplikaci Excel?
• Jak vymazat mezipaměť filtru (staré položky) z kontingenční tabulky v aplikaci Excel?