2017-08-06 1 views
1

Salut, j'utilise actuellement ce code mais il ne sélectionne que la colonne jusqu'à trouver une cellule vide, ce que je veux, c'est sélectionner la colonne depuis la cellule H3 jusqu'à la dernière La valeur de cette colonne même s'il y a des lignes videsCode Excel pour sélectionner une colonne même s'il y a des cellules vides

Range("H3").Select 
Range(Selection, Selection.End(xlDown)).Select 
Range(Selection, Selection.End(xlDown)).Select 

enter image description here

+0

voir ce [lien] (https://www.extendoffice.com/documents/excel/1065-excel-select-empty-cells.html) –

+0

Votre lien donner moi une idée de remplacer d'abord les valeurs vierges, puis sélectionnez toute la colonne – Jesus

Répondre

1

Simplifiez-vous la vie. Tout d'abord, déclarez une variable qui peut contenir la dernière ligne utilisée dans la colonne qui vous intéresse et déclarez une variable pour contenir la plage et la définir. Cela vous aidera à long terme.

par exemple. regarder le code suivant ...

Sub Test() 
Dim LastRow As Long 
Dim Rng As Range 

'This will find the last row used in column H 
LastRow = Cells(Rows.Count, "H").End(xlUp).Row 

'Set the Rng variable 
Set Rng = Range("H3:H" & LastRow) 

'Now do whatever you like to do with this range, like 
Rng.Select 
MsgBox Rng.Address 
Rng.Interior.Color = vbYellow 
'etc 

'If you want to perform multiple actions on the same range, you can also use With and End With block like below 

With Rng 
    .Value = "Test" 
    .Font.Size = 14 
    .Font.Bold = True 
    .HorizontalAlignment = xlCenter 
    .RowHeight = 25 
    'etc 
End With 
End Sub 
+0

Merci l'homme, votre code est exactement ce dont j'ai besoin – Jesus

+0

Vous êtes les bienvenus! Content que cela ait aidé. :) – sktneer

2
with activeworkbook.sheets("sheet1") ' you did not mention sheet name 
    range(.range("h3") , .Cells(.Rows.Count, "h").End(xlUp)).select 
end with 

que dit. essayez de ne pas utiliser Select. pourquoi choisissez-vous la gamme?