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

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

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

1 个答案: