excel 实现一个sheet页拆分成多个sheet页，批量插入超链接，批量插入返回超链接

实现一个sheet页拆分成多个sheet页：

1、如上图sheet表，首先把sheet页的表名修改为数据源

2、找到excel中 开发工具 > VB > 插入 > 模块

3、在白色空白处把以下代码复制进去，注意产出的sheet页名称长度不能超出31

Sub CFGZB()
    Dim myRange As Variant
    Dim myArray
    Dim titleRange As Range
    Dim title As Variant
    Dim columnNum As Integer
    myRange = Application.InputBox(prompt:="请选择标题行：", Type:=8)
    myArray = WorksheetFunction.Transpose(myRange)
    Set titleRange = Application.InputBox(prompt: