Question

我正在将一个值从一个工作簿复制到另一个工作簿，当我粘贴它时，我需要将值链接回原始源。我得到它的工作，细胞超链接。但是，我粘贴到一个可变单元格中，因此它会一直粘贴在错误的位置。有谁知道如何制作我放置星号的地方**以下是指活跃的细胞？

Dim rng, clm As Range
With ActiveWindow
    Set rng = Cells(ActiveCell.Row)
    Set clm = Cells(ActiveCell.Column)
    rng.Activate
    clm.Activate
    End With

With ActiveCell
Selection.PasteSpecial paste:=xlPasteValues
End With

With ActiveCell
    .Hyperlinks.Add Anchor:=.Range(**rng, clm**), Address:=FilePath, ScreenTip:="The screenTIP", TextToDisplay:=FilePath
End With

Answer 1

尝试以下操作而不是第二个With ActiveCell：

With ActiveSheet
    .Hyperlinks.Add Anchor:=ActiveCell, Address:=FilePath, ScreenTip:="The screenTIP", TextToDisplay:=FilePath
End With

粘贴并引用未定义的活动单元格

1 个答案: