Vba: hoe u alle cellen met gegevens selecteert

U kunt in VBA de volgende methoden gebruiken om alle cellen met gegevens in een blad te selecteren:

Methode 1: Selecteer een celraster met gegevens

 SubSelectCellsWithData ()

Range(" A1 ").CurrentRegion.Select

End Sub

Deze specifieke macro selecteert een raster van cellen met gegevens vanaf cel A1 van het momenteel actieve blad.

Methode 2: Selecteer individuele cellen met gegevens

 SubSelectCellsWithData ()

Worksheets(" Sheet1 ").Activate
ActiveSheet.Cells.SpecialCells(xlCellTypeConstants).Activate

End Sub

Deze specifieke macro selecteert alle individuele cellen die gegevens uit Blad1 bevatten.

De volgende voorbeelden laten zien hoe u elke methode in de praktijk kunt gebruiken met het volgende blad met de naam Blad1 in Excel:

Voorbeeld 1: Selecteer een celraster met gegevens

Stel dat we het celraster met gegevens in Blad1 willen selecteren.

We kunnen hiervoor de volgende macro maken:

 SubSelectCellsWithData ()

Range(" A1 ").CurrentRegion.Select

End Sub

Wanneer we deze macro uitvoeren, kunnen we zien dat het volledige celraster met de gegevens in Blad1 is geselecteerd:

Houd er rekening mee dat deze methode de eigenschap CurrentRegion gebruikt om het cellenbereik te selecteren dat wordt omsloten door lege cellen.

De volledige documentatie voor de eigenschap CurrentRegion vindt u hier .

Voorbeeld 2: Selecteer individuele cellen met gegevens

Stel dat we alleen alle afzonderlijke cellen met gegevens in Blad1 willen selecteren.

We kunnen hiervoor de volgende macro maken:

 SubSelectCellsWithData ()

Worksheets(" Sheet1 ").Activate
ActiveSheet.Cells.SpecialCells(xlCellTypeConstants).Activate

End Sub

Wanneer we deze macro uitvoeren, kunnen we zien dat elk van de afzonderlijke cellen in Blad1 met gegevens is geselecteerd:

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

VBA: hoe u de waarde van een cel in een ander blad instelt
VBA: een bereik in een actieve cel selecteren
VBA: rijen verwijderen op basis van celwaarde