使用数组添加并命名新的工作表

我需要创build一个给定数量的表，这取决于列表中的名称数量。 这些工作表需要与列表/数组中的每个单元格中的string值具有相同的名称。 到目前为止，我的代码，这是行不通的：

Private Sub loopfilter() Dim VersandRange As Range Dim rng As Range Dim Name As String Set VersandRange = Range("J2", Cells(Rows.Count, "j").End(xlUp)) For Each rng In VersandRange rng.Value = Name Worksheets.Add ActiveSheet.Name = Name Next end sub 

谢谢！

Answer 1

这不行吗？

 For Each rng In VersandRange Worksheets.Add ActiveSheet.Name = rng.Value Next