Excel 如何使具有超链接公式的单元格在粘贴后变为活动单元格

我正在将Access导出到Excel粘贴到另一个Excel工作簿。一切正常，除了一列充满超链接公式（=超链接（“www.stackoverflow.com”，“我的名字”）的列正在粘贴无效。我尝试先粘贴所有数据，并使用特殊值

    fromWS.Range(fromWS.Cells(2, 1), fromWS.Cells(fLastRow, FLastCol)).Copy
    Set toWS = toWB.Worksheets(WSheets(w))
    toWS.Cells(5, 1).PasteSpecial Paste:=xlPasteValues, _
    Operation:=xlNone, SkipBlanks:=False, Transpose:=False

然后，抓取包含超链接公式的列

    fromWS.Range(fromWS.Cells(2, 123), fromWS.Cells(fLastRow, 123)).Copy

并将其粘贴到最终工作表中

    toWS.Cells(5, 123).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False

使用PasteSpecial formula选项，但该列仍然有无效的超链接（所谓无效，是指它们显示为文本，单击时，它们不会转到超链接）

如果我点击其中一个单元格，点击F2+ENTER，链接将变成实时外观和结果。非常感谢您的想法？帮助？谢谢

何塞

---

PS：到处搜索，有很多地方展示了如何创建超链接，但我已经知道了。再次感谢您的帮助…

如果有人知道更好的答案，请发布

为了使链接可行，我必须在粘贴数据后运行这段代码：

作为整数的Dim col
col=5
而toWS.Cells（col，124）“”，如果EOD为空，则具有ProjectID。
如果拖曳单元格（第123列）”，则
拖航单元格（col，123）。公式=拖航单元格（col，123）。值
如果结束
col=col+1
温德

然而，这真的很烦人，因为我现在用这个发明我的脚本要慢得多。在使用公式选项进行特殊粘贴后，它应该可以正常工作。谢谢

何塞