基于Master工作表创建带数据填充与超链接的子工作表求助

看起来你已经搞定了核心的工作表创建功能，接下来我帮你补上数据填充和超链接生成的逻辑，同时兼顾Master工作表更新后的复用性。

完整修改后的代码 #

Option Explicit
Sub SheetsFromTemplate()
    Dim wsMASTER As Worksheet, wsTEMP As Worksheet, wasVISIBLE As Boolean
    Dim shNAMES As Range, Nm As Range
    Dim newWS As Worksheet
    Dim nameValue As String, contactValue As String
    
    With ThisWorkbook
        Set wsTEMP = .Sheets("Template")
        wasVISIBLE = (wsTEMP.Visible = xlSheetVisible)
        If Not wasVISIBLE Then wsTEMP.Visible = xlSheetVisible
        Set wsMASTER = .Sheets("Master")
        ' 精准获取C列非空数据范围（从C4到最后一行）
        Set shNAMES = wsMASTER.Range("C4:C" & wsMASTER.Cells(wsMASTER.Rows.Count, "C").End(xlUp).Row)
        Application.ScreenUpdating = False
        
        For Each Nm In shNAMES
            ' 获取当前行对应的Name(D列)和Contact(E列)值
            nameValue = Nm.Offset(0, 1).Value ' D列是C列向右偏移1列
            contactValue = Nm.Offset(0, 2).Value ' E列是C列向右偏移2列
            
            ' 检查目标工作表是否已存在
            If Not Evaluate("ISREF('" & CStr(Nm.Text) & "'!A1)") Then
                ' 复制模板创建新工作表
                wsTEMP.Copy After:=.Sheets(.Sheets.Count)
                Set newWS = ActiveSheet
                newWS.Name = CStr(Nm.Text)
            Else
                ' 若工作表已存在，直接引用（支持更新数据）
                Set newWS = .Sheets(CStr(Nm.Text))
            End If
            
            ' 将Name和Contact填充到新工作表指定位置
            ' 👉 这里假设Template中B2放Name、B3放Contact，请根据你的模板实际布局修改！
            newWS.Range("B2").Value = nameValue
            newWS.Range("B3").Value = contactValue
            
            ' 在Master的C列单元格创建超链接，指向对应工作表的A1单元格
            wsMASTER.Hyperlinks.Add _
                Anchor:=Nm, _
                Address:="", _
                SubAddress:="' " & newWS.Name & "'!A1", _
                TextToDisplay:=Nm.Text
                
        Next Nm
        
        wsMASTER.Activate
        If Not wasVISIBLE Then wsTEMP.Visible = xlSheetHidden
        Application.ScreenUpdating = True
    End With
    MsgBox "工作表创建、数据填充与超链接设置完成！"
End Sub

关键改动说明 #

• 数据填充逻辑：

  • 通过Nm.Offset(0,1)和Nm.Offset(0,2)快速获取当前C列单元格对应的D、E列数据
  • 代码默认将数据写入新工作表的B2和B3，请你根据Template模板的实际布局修改这两个单元格地址（比如Name要放在A5，就改成newWS.Range("A5").Value = nameValue）

• 超链接创建逻辑：

  • 使用Hyperlinks.Add方法给Master的C列单元格添加超链接，直接跳转到对应工作表的A1单元格
  • 用单引号包裹工作表名，避免工作表名包含空格、特殊字符时出现引用错误

• 兼容性与更新支持：

  • 即使Master工作表更新后重新运行代码，已存在的工作表会被直接引用并更新数据，不会重复创建
  • 改用End(xlUp)获取C列最后一行数据，比SpecialCells(xlConstants)更稳定，不会漏掉中间有空行的数据

使用注意事项 #

1. 务必根据你的Template模板布局，修改代码中newWS.Range("B2")和newWS.Range("B3")的单元格地址
2. 如果工作表名包含空格、&等特殊字符，代码中的单引号包裹逻辑已经处理，无需额外修改
3. 运行前请确认Master和Template工作表存在且命名正确

内容的提问来源于stack exchange，提问作者Chetan