如何获取非活动工作表的选中单元格？实现跨表粘贴链接

以下是几种可行的实现方案，适配不同使用场景：

1. 全局变量记录选中区域 #

通过全局变量在工作表切换前记录选中单元格信息，是最直接的方案：

• 打开VBA编辑器，插入标准模块并声明全局变量：

  Public prevSelection As Range
  

• 右键点击工作表1标签选择「查看代码」，添加SelectionChange事件实时更新选中区域：

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Set prevSelection = Target
  End Sub
  

• 切换到工作表2后，执行以下宏完成链接粘贴：

  Sub PasteLinkedValue()
      If Not prevSelection Is Nothing Then
          ActiveCell.Formula = "='" & prevSelection.Parent.Name & "'!" & prevSelection.Address
      End If
  End Sub
  

2. 自定义属性持久化存储选中信息 #

如果需要在工作簿关闭重启后仍能获取之前的选中记录，可使用自定义属性存储：

• 在工作表1的代码窗口添加事件：

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      ' 先删除已存在的属性避免重复
      On Error Resume Next
      ThisWorkbook.CustomProperties("PrevSelection").Delete
      On Error GoTo 0
      ' 存储工作表名+单元格地址
      ThisWorkbook.CustomProperties.Add _
          Name:="PrevSelection", _
          Value:=Target.Parent.Name & "!" & Target.Address
  End Sub
  

• 在工作表2中调用以下宏获取并粘贴链接：

  Sub RetrieveAndPasteLink()
      Dim selData As String
      Dim targetSheet As Worksheet
      Dim targetRange As Range
  
      selData = ThisWorkbook.CustomProperties("PrevSelection").Value
      Set targetSheet = ThisWorkbook.Worksheets(Split(selData, "!")(0))
      Set targetRange = targetSheet.Range(Split(selData, "!")(1))
  
      ActiveCell.Formula = "='" & targetSheet.Name & "'!" & targetRange.Address
  End Sub
  

3. 剪贴板快捷粘贴链接 #

如果仅需手动操作配合实现，无需额外记录，可直接利用剪贴板的粘贴链接功能：

• 在工作表1选中目标单元格后按Ctrl+C复制；
• 切换到工作表2选中目标单元格，按Ctrl+Shift+V（Excel默认粘贴链接快捷键）；
• 也可用VBA实现一键粘贴：

  Sub PasteLinkDirectly()
      On Error Resume Next
      ActiveCell.PasteSpecial Paste:=xlPasteFormulas
      On Error GoTo 0
  End Sub
  

注意事项 #

• 全局变量方案仅在当前工作簿会话有效，关闭后变量会重置；
• 自定义属性方案会持久化存储选中信息，直到工作表1重新选中其他单元格；
• 剪贴板方案依赖用户先完成复制操作，适合快速手动场景。

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