Question

EXCEL用宏把Sheet1中数据复制到Sheet2中

Sheet1和Sheet2
我要把Sheet1里的某一整行内容粘贴到Sheet2中
因为Sheet1中的数据量很大，所以需要用宏

Sub Macro4()
'
' Macro4 Macro
' 宏由 微软用户 录制，时间: 2009-12-8
'
' 快捷键: Ctrl+d
r = ActiveCell.Row
Sheets("Sheet1").Rows([r]).Copy Destination:=Sheets("Sheet2").Rows([5])

End Sub
这段代码是网上找的，当复制到Sheet2中时总是覆盖在第5行，怎样能从第一行一个一个的往下排着粘贴呢？
求解，谢谢各位！
这个是因为什么呀？？弄得我都保存不了，不能运行了。。

Answer 1

用万能的vba可以完成。

第一步编制宏代码。代码如下：

Sub test()

    Sheets("Sheet1").Select

    Cells.Select

    Selection.Copy

    Sheets("Sheet2").Select

    ActiveSheet.Paste

End Sub

第二步：点击开发工具-宏-选择上述TEST宏，按执行按钮。如图：

执行前如图：

执行后如图：

Answer 2

用宏命令很容易完成。粘贴完整命令测试通过。

Sub 合并()

Dim USheet As Object

Dim LIndex As Integer

Dim EndRow As Integer

Set USheet = Sheets.Application.ActiveSheet

LIndex = 1

For Each SSheet In Sheets

    If (SSheet.Name <> USheet.Name) Then

         EndRow = SSheet.Range("A:A").Find("").Row - 1

         SSheet.Range("A1:" & "B" & EndRow).Copy

         USheet.Range("A" & LIndex).Select

         ActiveSheet.Paste

         LIndex = LIndex + EndRow

    End If

Next

End Sub

Answer 3

Dim i As Long
Sub Macro4()
'
' Macro4 Macro
' 宏由 微软用户 录制，时间: 2009-12-8
'
' 快捷键: Ctrl+d
r = ActiveCell.Row
i = i + 1
Sheets("Sheet1").Rows([r]).Copy Destination:=Sheets("Sheet2").Rows([i])

End Sub

Answer 4

方法一：全选工作表，复制粘贴到sheet2
方法二：复制整个工作表，然后重命名为sheet2
方法三：按住CTRL键，隔行或逐行选择你想复制的行，复制粘贴到sheet2
方法四：在sheet1的A列插入一空列，然后在你需要复制的行内全部输入1，然后筛选此列数据为1的行，复制粘贴到sheet2

如果这四种方法都不能帮助你，可能你描述的不是很准备.
祝你快乐

Answer 5

Sub Macro4()
'
' Macro4 Macro
' 宏由 微软用户 录制，时间: 2009-12-8
'
' 快捷键: Ctrl+d
ActiveCell.EntireRow.Copy Sheets("sheet2").UsedRange.Offset(1, 0)
End Sub

将当前行复制到sheet2的数据最后一行的下方