使用宏在Excel 2013中创建和重命名新工作表

Question

我的目标很简单，当某个字段由文本组成时，我需要一个将此文本转换为工作表的按钮。

例如，我编写了“GOOGLE LTD”，然后单击该按钮，创建一个新工作表并将其更名为“GOOGLE LTD”。请参阅下图。

我已经通过互联网搜索，但找不到一个简单的教程，介绍如何使用宏创建和重命名工作表。

Answer 1

这里是你将需要更改txt变量=你的范围骨干：

Sub create() 
Dim txt As String 
Dim sht As Worksheet 
txt = ActiveSheet.Range("D4").value 
Set sht = Sheets.Add(After:=Worksheet(Sheets.Count)) 
sht.Name = txt 
End Sub