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

发布网友 发布时间：2022-04-22 09:05

我来回答

共5个回答

热心网友 时间：2023-11-01 17:43

用万能的vba可以完成。

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

Sub test()

    Sheets("Sheet1").Select

    Cells.Select

    Selection.Copy

    Sheets("Sheet2").Select

    ActiveSheet.Paste

End Sub

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

执行前如图：

执行后如图：

热心网友 时间：2023-11-01 17:44

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

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

热心网友 时间：2023-11-01 17:44

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

热心网友 时间：2023-11-01 17:45

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

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

热心网友 时间：2023-11-01 17:46

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

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