Excel 宏中的错误消息 - 从一个单元格复制到另一个单元格

Question

当我使用以下代码时，我收到错误消息“运行时错误'1004'“我们无法对合并的单元格执行此操作。”：

Sub CBCR71Out_Click()
   If ActiveSheet.CheckBoxes("CBCR71Out").Value = 1 Then
      Sheets("7 ELA").Range("CR71Out").Copy _
        Destination:=Worksheets("7 ELA Output").Range("CR7.1")
   Else
      Sheets("7 ELA Output").Range("CR7.1").Value = ""
   End If
End Sub

我正在创建一个 Excel 工作簿，用户在其中选择一个工作表上的信息，然后将其复制到第二个工作表并放入打印友好的格式。此特定信息从原始工作表上的 1 个单元格变为输出工作表上合并的 3 个单元格标题。

我边走边学，所以我不知道在这里做什么。

Answer 1

我不确定如何按照您的方式执行此操作，但您可能可以更改此代码：

 Sheets("7 ELA").Range("CR71Out").Copy _
   Destination:=Worksheets("7 ELA Output").Range("CR7.1")

到此代码：

Sheets("7 ELA Output").Range("CR7.1").Value = Sheets("7 ELA").Range("CR71Out").Value

本质上是将要复制的值放入打印友好的值中。