如何在Microsoft Excel中通过超链接将同行数据转移至另一工作表？

步骤1：给日期单元格添加指向自身的超链接 #

• 选中目标日期单元格，右键选择「超链接」
• 在弹窗里选「本文档中的位置」，定位到当前单元格后点击确定。这样点击超链接不会跳转，仅触发后续宏事件。

步骤2：编写VBA触发代码 #

1. 按Alt + F11打开VBA编辑器
2. 在左侧工程窗口双击包含日期单元格的工作表（如Sheet1），打开代码编辑区
3. 粘贴以下代码，根据你的表格结构调整参数：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    ' 假设日期在第1列（A列），可按需修改列号
    If Target.Range.Column = 1 Then
        ' 指定目标工作表，替换为你的目标表名称
        Dim targetSheet As Worksheet
        Set targetSheet = ThisWorkbook.Worksheets("Sheet2")
        
        ' 获取目标表最后一行行号，避免覆盖已有数据
        Dim lastRow As Long
        lastRow = targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row + 1
        
        ' 将同行右侧相邻单元格（示例为B列）数据复制到目标表
        ' 若相邻单元格在左侧，把Offset(0,1)改为Offset(0,-1)
        Target.Range.Offset(0, 1).Copy targetSheet.Cells(lastRow, "A")
        
        ' 可选：复制后清除原单元格数据，取消注释即可
        ' Target.Range.Offset(0, 1).ClearContents
    End If
End Sub

注意事项 #

• 保存文件时需选择.xlsm格式（启用宏的工作簿），否则宏会失效
• 打开文件时要启用宏，代码才能正常触发
• 代码中的列号、工作表名称、偏移量需根据实际表格调整

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