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

Question

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

例如，我写了＆＃34; GOOGLE LTD＆＃34;然后我点击该按钮，创建了一个新的工作表并重新命名为＆＃34; GOOGLE LTD＆＃34;。请参考下图。

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

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