粘贴带有行绝对引用的链接

Question

我使用下面的宏来粘贴链接已经在内存中的范围。它可以很好地粘贴链接复制的范围，并为每个复制的单元格提供相对引用。我需要相对列和绝对行，例如按 F2 激活单元格，然后按两次 f4 使行绝对。

Sub PasteLink()

    Selection.Activate
    ActiveSheet.Paste Link:=True
 
End Sub 

我无法整理出实现此目的的代码...

你能帮忙吗？谢谢。

Answer 1

• 用

  &

  功能删除

  Replace

Sub PasteLink()

    Dim c As Range
    ActiveSheet.Paste Link:=True
    For Each c In Selection
        c.Formula = Replace(c.Formula, "$", "")
    Next
    
End Sub