|
`` `Excel
Sub findFirstemPtyCelLandPaste ()
DIM WS comme feuille de calcul
Dim lastrow aussi longtemps
Dim Pastevalue comme variante
'Définir la feuille de travail et la valeur pour coller
Set ws =thisworkbook.worksheets ("sheet1") 'modifier "sheet1" en votre nom de feuille réel
pastEvalue ="Votre valeur" "Remplacez" votre valeur "par la valeur que vous souhaitez coller
'Trouvez la dernière ligne utilisée dans la colonne
lastrow =ws.cells (ws.rows.count, "a"). end (xlup) .row + 1 'modifier "a" dans la colonne que vous souhaitez rechercher
«Collez la valeur à la première cellule vide
ws.cells (lastrow, "a"). valeur =pasvalue 'modifier "a" dans la colonne que vous souhaitez coller
Sub-Sub
`` '
Explication:
1. Déclarer les variables:
- `ws`:représente la feuille de calcul avec laquelle vous souhaitez travailler.
- `lastrow`:stocke le numéro de ligne de la dernière cellule utilisée dans la colonne spécifiée.
- «Pastevalue»:stocke la valeur que vous souhaitez coller.
2. Définissez la feuille de travail et la valeur pour coller:
- Remplacez `" Sheet1 "` par le nom réel de votre feuille de calcul.
- Remplacez `" votre valeur "` par la valeur que vous souhaitez coller.
3. Trouvez la dernière ligne utilisée:
- `ws.cells (ws.rows.count," a "). end (xlup) .row`:cette ligne trouve la dernière cellule non vide de la colonne" A "(remplacer" A "par votre colonne).
- `+ 1`:ajoute 1 à la dernière ligne pour obtenir la première cellule vide dans cette colonne.
4. Collez la valeur:
- `ws.cells (lastrow," a "). value =pastEvalue`:cette ligne colle la valeur stockée dans` pasvalue` vers la première cellule vide de la colonne "A" (remplacer "a" par votre colonne).
comment utiliser:
1. Appuyez sur Alt + F11 pour ouvrir l'éditeur VBA.
2. Insérez un nouveau module (insérer> module).
3. Collez le code dans le module.
4. Remplacez les espaces réservés (nom de feuille de travail, valeur à coller, lettre de colonne) par vos valeurs réelles.
5. Exécutez la macro en appuyant sur F5 ou en cliquant sur le bouton "Exécuter".
Remarque: Ce code suppose que vous souhaitez coller la valeur dans la première cellule vide dans une colonne spécifique. Si vous avez besoin de coller dans une autre colonne ou ligne, ajustez la lettre de colonne et le numéro de ligne dans le code en conséquence.
|
