将单元格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

回答

相关问题