VBA代码来创build和命名基于variables的新工作表

我试图让我的代码添加一个工作表的名称代码确定基于Function_Namevariables。 当我运行它命名新的工作表Function_Name。 有什么想法吗？

For X = 1 To B Sheets("Calculations").Select Function_Name = Range("B2").Offset(X, 0) 'Gets the Function Name Worksheets.Add().Name = ("Function_Name") Next X 

Answer 1

 For X = 1 To B Worksheets.Add().Name = Sheets("Calculations").Range("B2").Offset(X, 0).Value Next X 

Answer 2

在您的原始代码中，您有Function_Name引号中

 Worksheets.Add().Name = ("Function_Name") 

引号应该被删除。

Tim的回答给出了更简洁的编写代码的方法。

你也可以考虑放入一些错误陷阱，因为如果你尝试添加一个名字已经存在的工作表，你会得到一个运行时错误。

Answer 3

 Dim wksSource as worksheet For X = 1 To B Sheets("Calculations").Select Function_Name = Range("B2").Offset(X, 0) 'Gets the Function Name Set wksSource = worksheets.add wksSource.Name = ("Function_Name") Set wksSource = nothing Next X