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

Question

我正在将访问导出到 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

与 粘贴特殊公式 选项，但该列仍然有无效的超链接。(死的意思是它们显示为文本，当单击它时，它们不会转到超链接(。

如果我单击其中一个单元格，然后按 F2+ENTER，链接将在外观和结果中变为实时。思潮？帮助？将不胜感激。 谢谢。

何塞 PS：四处搜索，有很多地方可以显示如何创建超链接，但我已经知道这一点。 再次感谢您的任何帮助...

Answer 1

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

为了使链接可行，我必须在粘贴数据后运行这段代码： Dim col As Integer col = 5 While toWS.Cells(col, 124) <>"" 'This has the ProjectID, if null EOD. If toWS.Cells(col, 123) <>"" Then toWS.Cells(col, 123).Formula = toWS.Cells(col, 123).Value End If col = col + 1 Wend 但是，这真的很烦人，因为我的脚本现在使用这项发明要慢得多。 在使用公式选项进行特殊粘贴后，它应该可以正常工作。谢谢。

何塞