Excel VBA:基于CEL值生成n张床单

Question

我想创建一个宏，该宏将根据cel的值生成n个数量的模板表。例如，用户输入4到此特定单元格中，随后在此模板的工作簿中生成4个新床单。

我已经通过Stack Overflow搜索了一个与我的相匹配但没有的问题。我发现的最接近的是，尽管Inital标题问题通常提出相同的问题，但详细介绍了该问题的用户将其问题更改为"基于单元格值插入单元格的数量"。我仍然将其用作起点。

Sub CreateSheets()
  Dim facilitiesNum As Integer
   facilitiesNum = Range("B2").Value
  sheetsNeeded = facilitiesNum
  With ThisWorkbook.Sheets
  For i = sheetsNeeded To Master.Range("B2").Value2
  .Item("TemplateSheet").Copy After:=.Item(.Count)
  .Item(.Count).Name = sheetsNeeded
  Next
  End With
End Sub

我是VBA的新手

      numberOfTemplates = cell value
      numSheetsNeeded = numberOfTemplates
    For i = numSheetsNeeded To NumOfTemp:
    create sheets using numSheetsNeeded as reference for how many need to be 
    generated

我该怎么做？

Answer 1

如果您只想添加新床单，那么这应该足够

Sub CreateSheets()
   Dim facilitiesNum As Long
   facilitiesNum = Range("B2").Value
   With ThisWorkbook.Sheets
      For i = 1 To facilitiesNum
          .Item("TemplateSheet").Copy After:=.Item(.Count)
          .Item(.Count).Name = i
      Next i
   End With
end sub