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:
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: