Combinez facilement plusieurs feuilles de calcul / classeurs dans une seule feuille de calcul / classeur

Avec le code VBA suivant, vous pouvez facilement créer une liste à partir des cellules spécifiées sur plusieurs feuilles de calcul. Vous pouvez faire comme suit:

Étape 1: Sélectionnez la cellule spécifiée à partir de laquelle vous allez créer votre liste. Dans notre cas, nous sélectionnons la cellule E6.

Étape 2: Presse autre + F11 simultanément pour ouvrir la fenêtre Microsoft Visual Basic pour Applications, cliquez sur insérer > Module, puis collez le code suivant dans la fenêtre du module.

VBA: créer une liste à partir des mêmes cellules sur plusieurs feuilles

Sub CreateList()
Dim xAddWs As Worksheet
Dim xWs As Worksheet
Dim RngAddress As String
xTitleId = "KutoolsforExcel"
RngAddress = Application.ActiveCell.Address
Set xAddWs = Application.ActiveWorkbook.Sheets.Add
xAddWs.Name = xTitleId
i = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> xTitleId Then
xAddWs.Cells(i, 1).Value = xWs.Range(RngAddress).Value
i = i + 1
End If
Next
End Sub

Étape 3: Presse F5 ou cliquez sur la course bouton pour exécuter ce VBA.

Ensuite, toutes les valeurs de la cellule spécifiée sur toutes les feuilles de calcul sont copiées dans une nouvelle feuille de calcul nommée KutoolsforExcel. Voir la capture d'écran ：

Ce VBA remplira la liste dans une nouvelle feuille de calcul et les valeurs de la liste sont statiques, ce qui ne changera pas avec les valeurs d'origine.

Cependant, vous pouvez parfois vouloir remplir la liste dans la plage spécifiée et exiger que les valeurs de la liste correspondent toujours aux valeurs d'origine dans les cellules spécifiées tout le temps. Pour répondre à ces besoins, vous devez essayer la méthode suivante.

Cette méthode introduira Kutools pour Excel's Se référer dynamiquement aux feuilles de calcul utilitaire pour créer une liste dynamique à partir des mêmes cellules sur plusieurs feuilles de calcul.

Étape 1: Sélectionnez la plage dans laquelle vous allez remplir la liste dynamique, puis cliquez sur le bouton Kutools > Plus > Se référer dynamiquement aux feuilles de calcul.

Étape 2: Dans la boîte de dialogue Ouvrir les références des feuilles de calcul,

(1) Cliquez sur le Remplir la commande et sélectionnez un type de remplissage dans la liste déroulante. Dans notre cas, nous sélectionnons Remplir verticalement cellule après cellule;

(2) Dans le Remplir la formule , spécifiez l'adresse de cellule à partir de laquelle vous allez créer une liste dynamique, puis cliquez sur le Bloquer bouton (dans la fenêtre de contrôle qui apparaît maintenant)  pour verrouiller la formule.

(3) Cliquez sur le Remplir la plage .

Vous verrez maintenant que les valeurs dans les cellules spécifiées sur toutes les feuilles de calcul sont remplies dans la plage spécifiée, comme illustré ci-dessous:

Lorsque les valeurs d'origine ont changé, les valeurs correspondantes dans cette liste spécifiée seront modifiées automatiquement.

Comment remplir automatiquement la même cellule à partir de différentes feuilles vers une feuille dans Excel?