Macro Automatique de Remplissage vers le Bas à la dernière cellule adjacente

Je suis en train d'utiliser l'enregistreur de macro dans Excel pour enregistrer une macro pour remplir une colonne de cellules, cependant, parce que le remplissage vers le bas à chaque fois est un nombre différent de cellules qu'il soit remplit vers le bas à court ou trop long, et ce qui semble être à cause de la macro identifie la plage de cellules et son fixe.

Est-il de toute façon que je peux le faire pour le remplir jusqu'à la dernière peuplées de la cellule voisine. E. g. Remplissage automatique en bas de la colonne E jusqu'à ce qu'il atteigne la dernière peuplée ligne dans la colonne D. j'ai regardé quelques exemples ici, mais le code a l'air très différentes, donc vous ne savez pas si cela peut être fait avec l'enregistreur de macro ou je dois trouver quelqu'un pour écrire un peu de code ou est-ce quelque chose qui doit être fait manuellement?

C'est le code que j'ai dans la macro.

ActiveCell.FormulaR1C1 = _
        "=IF(MONTH(RC[-1])>3,"" ""&YEAR(RC[-1])&""-""&RIGHT(YEAR(RC[-1])+1,2),"" ""&YEAR(RC[-1])-1&""-""&RIGHT(YEAR(RC[-1]),2))"
    Selection.AutoFill Destination:=Range("E2:E1344")
    'Selection.AutoFill Destination:=Range("E2:E1344")
    Range("E2:E1344").Select

Si quelqu'un peut aider, je serais extrêmement reconnaissante

OriginalL'auteur user2725363 | 2013-08-28

excel vba

9

A pas été testé....mais devrait fonctionner.
```
Dim lastrow as long

lastrow = range("D65000").end(xlup).Row

ActiveCell.FormulaR1C1 = _
        "=IF(MONTH(RC[-1])>3,"" ""&YEAR(RC[-1])&""-""&RIGHT(YEAR(RC[-1])+1,2),"" ""&YEAR(RC[-1])-1&""-""&RIGHT(YEAR(RC[-1]),2))"
    Selection.AutoFill Destination:=Range("E2:E" & lastrow)
    'Selection.AutoFill Destination:=Range("E2:E"& lastrow)
    Range("E2:E1344").Select
```
Seule exception étant êtes-vous sûr de saisie automatique de code est parfait...

Merci c'est parfait et oui le remplissage automatique de code fonctionne bien, merci
Heureux que j'ai été capable de les aider....pouvez-vous marquer la réponse acceptée...cochez le bouton de droite, à côté de ma réponse
J'obtiens une erreur sur cette affaire: la Sélection.AutoFill Destination:=Range("E2:E" & lastrow) lorsque lastrow=2. j'.e (de Sélection.AutoFill Destination:=Range("E2:E2")) veuillez me donner une solution

OriginalL'auteur Vasim
3

Cet exemple vous montre comment remplir la colonne B, basée sur le volume de données dans la Colonne A. Ajuster "A1" en fonction de vos besoins. Il va remplir la colonne B à partir de la formule en B1.
```
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.FillDown
```
Merci cela a fonctionné, mais il a utilisé le autre comme il a été mis en place pour la feuille. Merci beaucoup
j'obtiens une erreur sur cette condition, la Sélection.AutoFill Destination:=Range("A260:A260") s'il vous plaît aider!..

OriginalL'auteur xQbert

ActiveCell.Offset(0, -1).Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.FillDown

OriginalL'auteur chris gagnon

Vous devez vous connecter pour publier un commentaire.