Créer des feuilles de la list dans excel using template

J'ai un model excel (//desktop/spellTemplate.xltx) Maintenant, j'ai une feuille de calcul ouverte avec une list de noms commençant à A2 et une description à A3

 A2 A3 Imp does 5 damage death does 3 damage ghost heals 5 life. 

La list est assez longue et j'ai besoin de faire deux choses avec cette list. D'abord, comment puis-je créer une nouvelle feuille de calcul (dans ce classur) pour chacun des éléments de la colonne A2, avec la feuille de calcul nommée après l'élément. Maintenant, lorsqu'elle crée la nouvelle feuille de calcul, je souhaite qu'elle utilise le model créé ci-dessus .

Ensuite, mettez le nom A2 dans la cellule de templates A1 et la description A3 dans la cellule de templates C1 . Comment puis-je faire tout cela automatiquement pour la list des noms?

J'ai supposé que votre list ressemble à la suivante et se trouve sur une feuille intitulée Spells:

entrez la description de l'image ici


Essayez d'exécuter ce code en modifiant le path d'access à l'location de votre file model:

 Sub createSheet() Dim rng As Range Set rng = Sheets("Spells").Range("A2:A4") Dim wks As Worksheet For Each cell In rng On Error Resume Next If cell.Value <> "" Then Set wks = Sheets.Add(After:=Worksheets(Worksheets.Count), Type:="C:\Users\PortlandRunner\AppData\Roaming\Microsoft\Templates\spellTemplate.xltx") wks.Name = cell.Value wks.Range("A1").Value = cell.Value wks.Range("C1").Value = cell.Offset(0, 1).Value End If Next cell End Sub 

La ligne On Error Resume Next ligne On Error Resume Next sautera les feuilles qui existent déjà.


Feuilles résultantes créées:

entrez la description de l'image ici