Excel宏中的錯誤信息 - 從一個單元格複製到另一個

當我使用以下代碼時，我收到錯誤消息「運行時錯誤」1004「我們無法對合並的單元格執行此操作：」Excel宏中的錯誤信息 - 從一個單元格複製到另一個

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個單元格輸出表上的單元格標題

我正在學習，所以我不知道該怎麼做。

來源

2015-05-08 Paul Owens

我不完全知道如何做到這一點，你有辦法，但你可以這個代碼可能會改變：

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

基本上把價值被複制轉化爲友善的印刷品。

來源

2015-05-08 05:57:48

謝謝你的迴應Shauno。這確實有用，但是在我之前關於此項目的工作中發現，代碼建議不會複製格式。如果沒有辦法解決這個問題，我可以使用上面的代碼並更改目標單元格的整體格式......儘管我想避免這種情況。 –

嗨保羅，我認爲這個想法是不復制格式？如果您的目標表格都是以適合打印的格式安裝的，那麼我認爲您只需插入值並打印出來即可？這就是爲什麼我避免複製數據。您可能需要指定要複製的數據以及它在複製前後的格式？ –

我遇到的問題是，在單元格中複製的某些數據是粗體，而不是整個內容。如果我沒有辦法做到這一點，我只會將目標格式中的所有內容加粗。 –

Excel宏中的錯誤信息 - 從一個單元格複製到另一個

回答

相關問題