使用for循环在工作簿中添加新工作表

我正在尝试编写一个For...Next循环来在Workbook创build一组Worksheet 。 工作表的数量由用户在仪表板的早期点设置。

有人能指出我正确的方向吗？ 这是我的代码，到目前为止：

 For i = 1 To siteCount 'I know the below won't work, and I also tried site_ & i, but no luck Set site_i = Sheets.Add(after:=Sheets(Worksheets.Count)) site_i.Name = "Sheet Name" Next i 

Answer 1

通过一些小的调整，你的代码基本上可以工作：

 Option Explicit Sub AddSheets() Dim siteCount As Integer Dim i As Integer Dim site_i As Worksheet siteCount = 4 For i = 1 To siteCount Set site_i = Sheets.Add(after:=Sheets(Worksheets.Count)) site_i.Name = "Sheet_Name_" & CStr(i) Next i End Sub