Astuces Excel
  1. Astuces Excel
  3. Macro sur Auto Fill Down VLookUp Résultats jusqu'à la dernière cellule adjacente
Intereting Posts
Exporter depuis PHP Erreur intéressante Excel VBA – Si la cellule commence par "find" puis returnne la valeur d'une cellule différente Passer une list au controller pour download un file excel Comment créer une table dans Excel à partir de contenu HTML en utilisant javascript quand il n'y a pas de table HTML utilisée? Laissez les inputs vierges, si le champ a la date, insérez le text Ajouter un sharepoint données à un graphique sur une autre feuille de calcul Excel correspond aux lignes avec la même date et heure comment utiliser le formulaire de gauche dans vba? Comment déterminer les cellules actives? Python / PyWin32 / Script pour exécuter une macro Excel ne fonctionnant pas Erreur d'exécution '1004': Méthode SaveAs de l'object '_Workbook a échoué Supprimez le code spécifique d'un module VBA en utilisant .DeleteLines Créer un formulaire de contrôle Excel – button Excel – SUMPRODUCT pour countr si la sum des colonnes est> 0 Excel – Ajouter du text à CellA1 après avoir évalué le contenu de A1 Requête de sum dynamic

Macro sur Auto Fill Down VLookUp Résultats jusqu'à la dernière cellule adjacente

J'essaie de créer une macro qui exécutera un vlookup puis la vlookup automatiquement jusqu'à la dernière cellule adjacente qui contient des données. Lorsque j'ai initialement créé la macro, l'set de données contenait 1917 lignes de données, c'est pourquoi vous continuerez à le voir en reference 1917 . Cependant, l'set de données varie en taille quotidienne.

Cette macro particulière prend quelques étapes avant d'arriver à ce point:

  1. Convertit le text en colonnes
  2. Supprime une colonne inutile fournie à partir d'un rapport d'appui
  3. Ajoute des titres à 5 colonnes
  4. Redimensionne toutes les colonnes pour corriger datatables
  5. Ensuite, il exécute le premier vlookup dont j'ai besoin pour que datatables vlookup complétées jusqu'à la dernière cellule adjacente vers la gauche
  6. Ensuite, il exécute un autre vlookup que je dois aussi compléter jusqu'à la dernière cellule adjacente à gauche

Voici le code pour les deux vlookup je suis en difficulté: 

 Range("E2").Select ActiveCell.FormulaR1C1 = _ "=VLOOKUP(RC[-4],'CURRENT DAY'!R[-1]C[-4]:R[2498]C[1],5,0)" ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],'CURRENT DAY'!R1C1:R2500C6,5,0)" Range("E2").Select Selection.AutoFill Destination:=Range("E2:E1917") Range("E2:E1917").Select Columns("E:E").EntireColumn.AutoFit Range("F2").Select ActiveCell.FormulaR1C1 = _ "=VLOOKUP(RC[-5],'CURRENT DAY'!R[-1]C[-5]:R[2498]C,6,0)" ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-5],'CURRENT DAY'!R1C1:R2500C6,6,0)" Range("F2").Select Selection.AutoFill Destination:=Range("F2:F1917") Range("F2:F1917").Select

Il n'est pas nécessaire de replace automatiquement. Trouvez simplement la dernière ligne dans la colonne A et utilisez celle pour désigner la plage dans laquelle mettre la formule r1c1 

 Dim lastrow As Long lastrow = Range("A2").End(xlDown).Row Range("E2:E" & lastrow).FormulaR1C1 = "=VLOOKUP(RC[-4],'CURRENT DAY'!R1C1:R2500C6,5,0)" Range("F2:F" & lastrow).FormulaR1C1 = "=VLOOKUP(RC[-5],'CURRENT DAY'!R1C1:R2500C6,6,0)" Columns("E:F").EntireColumn.AutoFit