使用前需对溯源序号进行超链接赋予操作。' 定义全局变量，记录第一次输入的工作表名称及筛选的列号 Private storedSheetName As String Private storedFilterColumn As Long ' 用户可在此处填写目标工作表名称 Private Function GetTargetSheetName() As String GetTargetSheetName = "1." ' 替换为实际工作表名称，例如 "Sheet1" 或 "基础版" End Function ' 用户可在此处填写筛选的列号 Private Function GetFilterColumn() As Long GetFilterColumn = 1 ' 替换为实际列号，例如 1 表示第一列 End Function Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) Dim arr() As String
该代码不是我写的，只是原代码是作用于手动填写的一整列，在存在合并单元格标题的处理时容易出错，我修改为了作用于选中区域。主要用于处理某一列存在合并单元格，但分页后，下一页合并单元格被拦腰斩断的问题，该代码会将被跨页的单元格进行分割，重新填入内容。
将清单中选中单元格英文符号全部替换为中文（不含.）
处理清单中存在的手动设置超链接报错问题
狗剩