VBA使用Cells方法跨工作表复制带超链接单元格报400错误求助

你的代码报错400，核心问题是**Cells(10,2)和Cells(19,2)没有明确指定所属工作表**——Cells属性默认绑定当前活动工作表，而非你想引用的SourceSheet。如果运行代码时活动工作表不是Sheet2，就会出现跨工作表引用冲突，导致报错。

修正方案1：明确指定Cells的父工作表 #

给每个Cells加上源工作表的前缀，确保Range引用的是源工作表上的单元格：

Sub CopyCells()
  Const TargetSheet = "Sheet1"
  Const SourceSheet = "Sheet2"
  ' 给Cells指定所属的源工作表，避免活动工作表干扰
  Sheets(SourceSheet).Range(Sheets(SourceSheet).Cells(10, 2), Sheets(SourceSheet).Cells(19, 2)).Copy _
    Destination:=Sheets(TargetSheet).Cells(1, 6)
End Sub

修正方案2：用With语句简化代码（推荐） #

使用With块可以让代码更简洁，同时确保块内的Cells默认归属源工作表：

Sub CopyCells()
  Const TargetSheet = "Sheet1"
  Const SourceSheet = "Sheet2"
  
  With Sheets(SourceSheet)
    ' With块内的.Cells自动绑定到SourceSheet
    .Range(.Cells(10, 2), .Cells(19, 2)).Copy Destination:=Sheets(TargetSheet).Cells(1, 6)
  End With
End Sub

适配动态行列变量的版本 #

如果你的行列是通过代码检测得到的变量（比如动态最后一行），可以直接替换成变量，完全不需要硬编码：

Sub CopyDynamicRange()
  Const TargetSheet = "Sheet1"
  Const SourceSheet = "Sheet2"
  
  ' 示例：通过代码逻辑获取的动态行列值
  Dim sourceStartRow As Long, sourceEndRow As Long
  Dim sourceCol As Long, targetStartRow As Long, targetCol As Long
  
  sourceStartRow = 10 ' 实际可替换为动态检测的起始行
  sourceEndRow = Sheets(SourceSheet).Cells(Sheets(SourceSheet).Rows.Count, 2).End(xlUp).Row ' 动态获取B列最后一行
  sourceCol = 2
  targetStartRow = 1
  targetCol = 6
  
  With Sheets(SourceSheet)
    .Range(.Cells(sourceStartRow, sourceCol), .Cells(sourceEndRow, sourceCol)).Copy _
      Destination:=Sheets(TargetSheet).Cells(targetStartRow, targetCol)
  End With
End Sub

这个方案不仅能复制超链接，还能保留单元格格式、公式等所有属性，完美适配你的需求。

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