如何用Excel VBA复制URL至另一工作表且不带格式与超链接

方法1：直接赋值（最简洁高效） #

不需要依赖复制粘贴操作，直接将目标单元格的内容赋值到指定位置，完全规避格式与超链接的传递问题：

' 获取单元格的实际值（如果C17是超链接，会获取链接地址）
Sheets("data").Range("N7").Value = Sheets("Input Form").Range("C17").Value

如果需要获取超链接的显示文本而非链接地址，改用：

Sheets("data").Range("N7").Value = Sheets("Input Form").Range("C17").Text

方法2：修改PasteSpecial参数（保留复制粘贴逻辑） #

如果坚持使用复制粘贴流程，只需将xlPasteAll替换为xlPasteValues，仅粘贴单元格的值，不会携带格式或超链接：

Sheets("Input Form").Range("C17").Copy
Sheets("data").Range("N7").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

注：原代码中的Transpose:=True对单个单元格无实际作用，可按需删除。

内容的提问来源于stack exchange，提问作者David