将数据复制到Excel中另一个工作表上的特定单元格区域

HI我有此代码可以很好地将数据复制并追加到单独的工作表，但是我希望它粘贴到目标工作表中的特定单元格区域，我开始讨论它？将数据复制到Excel中另一个工作表上的特定单元格区域

Sub SummurizeSheets() 
    Dim ws As Worksheet 

    Application.ScreenUpdating = False 
    Sheets("Summary").Activate 

    For Each ws In Worksheets 
     If ws.Name <> "Summary" Then 
      ws.Range("D2:D6, D8:D15").Copy 
      Worksheets("Summary").Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues) 
     End If 
    Next ws 
End Sub

来源

2013-10-21 Steve

修改这条线，以便它是指所期望的工作表和小区（一个或多个）地址：

Worksheets("Summary").Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)

例如，这把它放在一个名为“另一个表名称”工作表和在柱f，而不是列C，：

Worksheets("Another Sheet Name").Cells(Rows.Count, 6).End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)

更新：您正在使用稍微动态范围已经在与Offset方法结合使用。如果您无法将这些值粘贴到所需的位置，请告诉我该位置是什么，我可以给出更详细的答案。

来源

2013-10-21 19:51:36

感谢您的快速回复我想要数据粘贴到E1，目前它腾空行1我不知道为什么，我需要轻松地编辑这为后续的工作簿，所有有12工作表总结到命名列希望这有意义 – Steve

'.Offset'方法正在将目标范围移至“E2”。你应该能够删除'.Offset（1，0）'，我认为应该这样做。 –

感谢大卫你现在正在工作正确，我可以改变rows.count为后续工作表放置结果。再次感谢 – Steve

将数据复制到Excel中另一个工作表上的特定单元格区域

回答

相关问题