Excel VBA om inhoud van bereik te wissen (3 geschikte gevallen)

  • Deel Dit
Hugh West

Als u op zoek bent naar de oplossing of enkele speciale trucs om inhoud van bereik wissen met Excel VBA dan ben je op de juiste plaats beland. Er zijn enkele eenvoudige stappen om de inhoud van het bereik wissen met Excel VBA Dit artikel toont u elke stap met de juiste illustraties, zodat u ze gemakkelijk kunt toepassen voor uw doel. Laten we beginnen met het centrale deel van het artikel.

Download Praktijk Werkboek

U kunt het oefenwerkboek hier downloaden:

Wis de inhoud van Range.xlsm

Inhoud van bereik wissen met Excel VBA: 3 gevallen

Stel, u hebt een dataset die u misschien opnieuw wilt gebruiken om bestaande cellen te wissen. U kunt dus VBA-code gebruiken om de inhoud van een Excel-bestand te wissen. In dit deel laat ik u de snelle en eenvoudige methoden zien om inhoud van bereik wissen met Excel VBA op het Windows besturingssysteem. U vindt gedetailleerde uitleg met duidelijke illustraties van elk ding in dit artikel. Ik heb gebruikt gemaakt van Microsoft 365 versie Maar u kunt elke andere versie gebruiken naargelang uw beschikbaarheid. Als iets van dit artikel niet werkt in uw versie, laat dan een reactie achter.

Geval 1: Alle inhoud van het bereik wissen

U kunt zowel de opdracht Wissen als de opdracht Verwijderen gebruiken om de inhoud van een specifiek bereik in het huidige werkblad of in andere werkbladen te wissen, zelfs in andere werkmappen. Ik zal u alle gevallen één voor één laten zien.

i. Wis de inhoud van een specifiek bereik van cellen

Als u de inhoud van een specifiek bereik wilt wissen, volg dan de onderstaande stappen:

Stappen:

  • Ga hiervoor eerst naar het bovenste lint en druk op de knop Ontwikkelaar en druk vervolgens op de Visual Basic optie uit het menu.
  • U kunt ALT + F11 om de "Microsoft Visual Basic for Applications" venster als u het tabblad Ontwikkelaar niet hebt toegevoegd.

  • Nu, een venster met de naam "Microsoft Visual Basic for Applications" zal verschijnen. Hier van de bovenste menubalk, druk op de "Invoegen" En er verschijnt een menu. Selecteer daaruit de "Module" optie.

  • Nu, een nieuwe "Module" venster verschijnt. En Plakken deze VBA-code in het vak.

Clear Command gebruiken:

 Sub Clear_Contents_Range() Range("B4:D5").Clear End Sub 

  • Om de code uit te voeren gaat u naar het bovenste menu, drukt u op de knop Ren optie, en hier zullen enkele andere opties openen en selecteer de Sub/UserForm uitvoeren ook kunt u gewoon op F5 om de code uit te voeren.

  • Met behulp van de Duidelijk commando, worden de cellen gewist en wordt ook de opmaak verwijderd. Maar de lege cellen blijven bestaan.

Met behulp van Delete Command:

U kunt ook de Verwijder commando in plaats van de Duidelijk en plak dan de volgende code in de module.

 Sub Delete_Contents_Range() Range("B4:D5").Delete End Sub 

Met het commando Verwijderen wordt, wanneer u de code uitvoert, het geselecteerde cellenbereik verwijderd volledig.

Lees meer: Excel VBA: Wis inhoud indien cel specifieke waarden bevat

Verschil tussen wissen en wissen in Excel VBA:

Het belangrijkste verschil tussen de Duidelijk en Verwijder commando's in Excel VBA is dat de Verwijder commando verwijdert het geselecteerde cellenbereik volledig en de opdracht Wissen verwijdert alleen de celwaarde en de opmaak, maar de lege cel blijft bestaan.

ii. Duidelijke inhoud van het volledige werkblad

Als u alle cellen van een werkblad wilt wissen, gebruik dan de onderstaande code. Hier wis ik de inhoud van het werkblad met de naam "1.2". U moet plaats de naam van de werkblad die u wilt wissen tussen aanhalingstekens.

 Sub Delete_Contents_Range() Worksheets("1.2").Cells.Clear End Sub 

Ook kunt u de Verwijder commando om alle gebruikte cellen in een werkblad te verwijderen. Dan moet u de onderstaande code gebruiken. Wijzig alleen de naam van het werkblad tussen aanhalingstekens.

 Sub Delete_Contents_Range() Worksheets("1.2").Cells.Delete End Sub 

iii. Duidelijke inhoud van actief werkblad

Soms moet u alleen de inhoud van het actieve werkblad wissen. In dat geval moet u de onderstaande eenvoudige code gebruiken:

 Sub Delete_Contents_Range() ActiveSheet.Cells.Clear End Sub 

U kunt ook de verwijderopdracht gebruiken om de cellen volledig uit het actieve werkblad te verwijderen. Plak hiervoor de volgende code in de module.

Sub Delete_Contents_Range()

ActiveSheet.Cells.Delete

Einde Sub

Lees meer: Verschil tussen verwijderen en wissen in Excel

Geval 2: Wis de inhoud van het bereik met behoud van de opmaak

In de vorige methodes hebt u gemerkt dat u de celwaarden langs de celopmaak ook verwijdert. Dus, als u wilt alleen de celwaarden verwijderen met behoud van de opmaak hetzelfde.

i. Inhoud van het specifieke bereik

U kunt de ClearContents commando in Excel VBA om de inhoud van een specifiek bereik te wissen. Plak hiervoor de volgende code in de module.

 Sub Delete_cell_Keeping_format() Range("B2:D4").ClearContents End Sub 

Het resultaat is dat wanneer u de code uitvoert, u zult zien dat de geselecteerde cellen zijn gewist, maar de formaten blijven bestaan.

Lees meer: Hoe cellen met een bepaalde waarde in Excel te wissen (2 manieren)

ii. Inhoud van het specifieke werkblad

Wanneer u de inhoud van een bepaald werkblad wilt wissen terwijl de formaten hetzelfde blijven, moet u onderstaande code gebruiken:

 Sub Delete_Worksheet_Cells_Keeping_format() Worksheets("2.2").Range("B2:D4").ClearContent End Sub 

VBA-code Uitleg:

  • Werkbladen("2.2") roept het werkblad met de naam "2.2" aan, als u een werkblad met een andere naam wilt aanroepen, voeg dan de naam van het werkblad tussen aanhalingstekens in.
  • En, Range("B2:D4") U kunt het celbereik naar behoefte aanpassen.

iii. Inhoud van ander werkboek

U kunt ook duidelijk de inhoud van een ander werkboek met behulp van VBA code. Maar hiervoor moet je... houd dat werkboek open Gebruik hiervoor onderstaande code:

 Sub Delete_Other_Workbook_Cells_Keeping_format() Workbooks("file 1").Worksheets("Sheet1").Range("B3:D12").ClearContents End Sub 

VBA-code Uitleg:

  • Werkmappen("bestand 1") roept de werkmap genaamd "Bestand 1". Als u uw werkmappen gebruikt, moet u de naam van de werkmap tussen aanhalingstekens plaatsen.
  • Werkbladen("Blad1") roept het werkblad genaamd "Blad 1". Om een ander werkblad aan te roepen, voegt u gewoon de naam van het werkblad in in plaats van "Blad 1" in deze code.
  • En, Bereik("B3:D13") U kunt het celbereik naar behoefte aanpassen.

Lees meer: Inhoud wissen zonder formules te verwijderen met VBA in Excel

Geval 3: De inhoud van een specifiek bereik van alle werkbladen tegelijk wissen

Als u duidelijk de inhoud van een specifiek bereik van meerdere werkbladen kun je het in één keer doen met behulp van een VBA code. Je moet For-lus gebruiken voor deze taak. Plakken deze code in de module om de inhoud van het bereik te wissen B2:D4 van alle werkbladen. Als u het celbereik wilt wijzigen, bewerk dan de 4e regel en voeg uw gegevensbereik in.

 Sub Wis_Specifiek_Range_Alle_Werkbladen() Dim W_S Als Werkblad Voor Elke W_S In ActiveWorkbook.Werkbladen W_S.Range("B2:D4").Wis Inhoud Volgende W_S Einde Sub 

Dingen om te onthouden

  • Met behulp van de Duidelijk commando zal alleen de celwaarden en formaten wissen.
  • Verwijder commando zal de cellen volledig verwijderen.
  • ClearContents commando zal alleen de waarden van de cellen wissen en de celformaten ongemoeid laten.

Conclusie

In dit artikel heb je gevonden hoe je De inhoud van een bereik wissen met Excel VBA Ik hoop dat u dit artikel nuttig vond. U kunt onze website bezoeken ExcelWIKI Als u opmerkingen, suggesties of vragen heeft, kunt u die hieronder kwijt.

Hugh West is een zeer ervaren Excel-trainer en -analist met meer dan 10 jaar ervaring in de branche. Hij heeft een bachelor in Accounting en Finance en een master in Business Administration. Hugh heeft een passie voor lesgeven en heeft een unieke lesaanpak ontwikkeld die gemakkelijk te volgen en te begrijpen is. Zijn deskundige kennis van Excel heeft duizenden studenten en professionals over de hele wereld geholpen hun vaardigheden te verbeteren en uit te blinken in hun carrière. Via zijn blog deelt Hugh zijn kennis met de wereld en biedt hij gratis Excel-tutorials en online trainingen aan om individuen en bedrijven te helpen hun volledige potentieel te bereiken.