Excel VBA code pour sélectionner non des cellules vides

Dans Excel, disons que j'ai données dans B2 à B7 et C2 à C7 . En VBA, je peux écrire une macro pour sélectionner:

Sub Macro1()
Range("B2:C7").Select
End Sub

Comment dois-je réécrire le code pour qu'il choisit automatiquement les cellules non-vides?
Si je supprime les données dans la cellule B7 et C7 alors je veux la macro pour sélectionner uniquement la Gamme(B2:C6)
Et si j'ajoute des données à la Cellule B8 et C8 alors je veux de la macro pour choisir la Gamme(B2:C8).

Mes données, vous pourrez toujours démarrer un B2,C2 et je n'aurai pas tout l'espace libre entre les données.

Double Possible de stackoverflow.com/questions/821364/...
que si, à partir de la Range(B2:C7) les cellules B4 et C4 sera effacé, de sorte que vous aurez besoin de sélectionner le Range(B2:C3) ou vous avez encore besoin de sélectionner Range(B2:C7)?

OriginalL'auteur k.dkhk | 2016-10-10

  1. 5

    vos données commencent toujours à B2,C2 et n'a pas de cellule vide entre les deux? Si oui, vous pouvez définir une variable pour être le "dernier rempli en ligne" 

    lastRow = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row
Range("B2:C" & lastRow).Select

    et de définir la plage à partir de B2 à la C"dernière ligne"

    "...de définir la plage à partir de B2 à la C"dernière ligne"". Comment exactement? Je ne suis pas sûr de ce que tu veux dire exactement
    vérifiez la version modifiée
    Fonctionne parfaitement, merci

    OriginalL'auteur L.Dutch

  2. 2

    Utiliser une boucle:

    Sub qwerty()
    Dim rng As Range, r As Range, rSel As Range

    Set rng = Range("B2:C7")
    Set rSel = Nothing

    For Each r In rng
        If r.Value <> "" Then
            If rSel Is Nothing Then
                Set rSel = r
            Else
                Set rSel = Union(rSel, r)
            End If
        End If
    Next r
    If Not rSel Is Nothing Then rSel.Select
End Sub

    Si vous souhaitez étendre la zone testée, utilisation:

    Range("B2:C7").CurrentRegion
    Fonctionne parfaitement, merci

    OriginalL'auteur Gary's Student