将所选工作表的内容复制并粘贴到新工作表中

时间:2017-03-22 02:40:50

标签: excel vba excel-vba

我有一个包含10个工作表的excel工作簿。 我想有一个宏能够将“Sheet3”,“Sheet4”,Sheet5“,”Sheet6“和”Sheet7“的所有内容复制到”Sheet10“中,此时此刻是空的。一个接一个。< / p>

“Sheet3”,“Sheet4”,Sheet5“,”Sheet6“和”Sheet7“的内容并不总是相同,所以我希望这个宏能够复制所有内容而不仅仅是固定范围。

1 个答案:

答案 0 :(得分:0)

Excel有许多SpecialCells方法,其中一个方法可以找到工作表中最后使用过的单元格。出于某种原因,宏将记录为.SpecialCells(xlLastCell),而Excel帮助/引用表明它是.SpecialCells(xlCellTypeLastCell),您也可以使用值11。 下面的所有三个宏都将从当前单元格中选择到工作表中的最后一个单元格。

2017-03-17 11:56:20

这是一个非常基本的示例,它将从sheet1和sheet2复制数据并将其附加到sheet3。

Sub Macro1()
' Macro1 Macro
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
End Sub

Sub Macro2()
' Macro1 Macro
    Range(Selection, ActiveCell.SpecialCells(xlCellTypeLastCell)).Select
End Sub

Sub Macro3()
' Macro1 Macro
   Range(Selection, ActiveCell.SpecialCells(11)).Select
End Sub