將單元格1中的單元格區域複製到不同單元格中的單元格4

我在將單元格從一個單元格複製到另一個單元格時遇到問題。錯誤腳本超出範圍。看起來很簡單但不起作用。來自專業人士的任何建議。將單元格1中的單元格區域複製到不同單元格中的單元格4

Sub Button1_Click() 
Sheet4.Select 

'Copy the data 
Sheets("Sheet1").Range("A7").Copy 
Sheets("Sheet1").Range("D7").Copy 
Sheets("Sheet1").Range("G7").Copy 
Sheets("Sheet1").Range("C10").Copy 
Sheets("Sheet1").Range("A12").Copy 
Sheets("Sheet1").Range("C12").Copy 
Sheets("Sheet1").Range("A14").Copy 
Sheets("Sheet1").Range("A16").Copy 
Sheets("Sheet1").Range("A29").Copy 
'Activate the destination worksheet 
Sheets("Sheet4").Activate 
'Select the target range 
Sheets("Sheet4").Range("A6").Paste 
Sheets("Sheet4").Range("E6").Paste 
Sheets("Sheet4").Range("H6").Paste 
Sheets("Sheet4").Range("G8").Paste 
Sheets("Sheet4").Range("A10").Paste 
Sheets("Sheet4").Range("G10").Paste 
Sheets("Sheet4").Range("A12").Paste 
Sheets("Sheet4").Range("A14").Paste 
Sheets("Sheet4").Range("A19").Paste 
'Paste in the target destination 
ActiveSheet.Paste 

Application.CutCopyMode = False 



End Sub

來源

2015-09-04 floatpilot99

嘗試PasteSpecial的。如果你不需要格式化，只需設置每個範圍。你也想複製粘貼每個範圍，而不是全部複製然後粘貼全部。 – findwindow

腳本超出範圍出現在sheet1副本的第一行。 – floatpilot99

可能是因爲你的第一行是選擇sheet4？我不知道如何選擇作品，因爲我不惜一切代價避免它XD你需要格式？ – findwindow

如果你不需要格式化，我會做這樣的事情

Set ws1 = WorkSheets("Sheet1") 
Set ws4 = WorkSheets("Sheet4") 

With ws4 
    .Range("A6").Value = ws1.Range("A7").Value 
    .Range("E6").Value = ws1.Range("D7").Value 
    .Range("H6").Value = ws1.Range("G7").Value 
    .Range("G8").Value = ws1.Range("C10").Value 
    .Range("A10").Value = ws1.Range("A12").Value 
    .Range("G10").Value = ws1.Range("C12").Value 
    .Range("A12").Value = ws1.Range("A14").Value 
    .Range("A14").Value = ws1.Range("A16").Value 
    .Range("A19").Value = ws1.Range("A29").Value 
End With

來源

2015-09-04 17:35:44 findwindow

我試過這個，但得到了「腳本我們的範圍」錯誤。 – floatpilot99

這裏是我所編寫的代碼：昏暗WS1作爲工作表昏暗WS4作爲工作表集WS1 =工作表（「工作表Sheet」）集WS4 =工作表（「Sheet4」）隨着WS4 .Range（「A6 ：B6 「）。值= ws1.Range（」 A7：B7 「） .Range（」 D6 「）值= ws1.Range（」 C7" ）隨着結束子結束 – floatpilot99

嘗試增加'.value'你放棄它的地方。編輯：也許還可以在'工作表（）'之前添加'thisworkbook.'＃ – findwindow

將單元格1中的單元格區域複製到不同單元格中的單元格4

回答

相關問題