用VBA根据A列不为空的单元格的值，建立新的工作表，同时在新工作表的A1单元格输入工作表的名称，B1单元格输入“返回”，并与SHEET1工作表B1单元格建立链接。并且给A列单元格的值与工作表名一样的工作表建立链接。
如下图：
1、根据sheet1表A列单元格的值：“表1、表2……表12”，作为新工作表的名称，用VBA快速建立新工作表。
2、在工作表建立后，如果工作表的名称与sheet1表A列的值相同，则建立链接，方便快速点击进入相应的工作表。
3、在新建工作表的A1单元格输入该工作表的名称。
4、在新建工作表的B1格输入“返回”，链接返sheet1工作表。
代码如下：
Sub CreateWorksheetsAndHyperlinks()'此代码将基于列A中的非空值创建新工作表，在新工作表的单元格A1中输入工作表名称，输入“返回“在新工作表的单元格B1中，'创建从单元格B1到表1的单元格A1的超链接，并创建从列a中的值到相应工作表的超链接 Dim ws As Worksheet Dim rng As Range Dim strName As String Set rng = Range("A:A") For Each rng In rng If Not IsEmpty(rng.Value) Then strName = rng.Value Set ws = Worksheets.Add ws.Name = strName ws.Range("A1").Value = strName ws.Range("B1").Value = "返回" ws.Range("B1").Hyperlinks.Add Anchor:=ws.Range("B1"), Address:="", SubAddress:="'Sheet1'!A1" rng.Hyperlinks.Add Anchor:=rng, Address:="", SubAddress:="'" & ws.Name & "'!A1" End If Next rngEnd Sub