How do I copy a cell that has an online hyperlink to another cell?

Question

I want to copy a cell that has an online hyperlink to another cell (while keeping the hyperlink intact), but every time I try this it just copies the value without the hyperlink.

=hyperlink does not work because that just hyperlinks to my cell's location; not the online hyperlink.

I tried to copy using vba but I ran into the same problem.

Worksheets("X").Range("AD17") = Worksheets("Y").Range("A2")

Answer 1

使用Range.Copy命令将复制文本和超链接：

Worksheets("Y").Range("A2").copy Worksheets("X").Range("AD17")