如何用Python在Excel工作簿间复制带超链接的单元格？

方法一：手动直接复制 #

直接选中包含超链接的单元格/单元格区域，按Ctrl+C复制，切换到目标工作簿的目标单元格，按Ctrl+V完成粘贴。不要使用「选择性粘贴」（会丢失超链接），普通粘贴会完整保留单元格的超链接、值和格式。

如果单元格的超链接是通过=HYPERLINK()公式实现的，直接复制单元格即可连公式带超链接一并复制。

方法二：VBA批量处理（适合大量单元格） #

如果需要批量复制或自动化操作，用以下VBA代码，确保源和目标工作簿已打开：

Sub CopyHyperlinks()
    ' 配置源工作簿和工作表
    Dim sourceWB As Workbook
    Dim sourceWS As Worksheet
    Set sourceWB = Workbooks("Source.xlsx") ' 替换为你的源工作簿名称
    Set sourceWS = sourceWB.Worksheets("Sheet1") ' 替换为源工作表名称
    
    ' 配置目标工作簿和工作表
    Dim targetWB As Workbook
    Dim targetWS As Worksheet
    Set targetWB = Workbooks("Target.xlsx") ' 替换为你的目标工作簿名称
    Set targetWS = targetWB.Worksheets("Sheet1") ' 替换为目标工作表名称
    
    ' 复制指定区域（保留所有属性：超链接、值、格式等）
    sourceWS.Range("A1:A10").Copy ' 替换为要复制的单元格范围
    targetWS.Range("A1").PasteSpecial Paste:=xlPasteAllUsingSourceTheme
    
    ' 清除剪贴板，避免弹窗提示
    Application.CutCopyMode = False
End Sub

代码说明 #

• xlPasteAllUsingSourceTheme参数会完整复制源单元格的所有属性，包括超链接、格式、值；如果只需要超链接和值，可将参数改为xlPasteAll或xlPasteHyperlinks。
• 若仅复制单个单元格，可简化为：

  sourceWS.Range("A1").Copy targetWS.Range("B1")
  

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