源数据里再sheet2  按照模板整理出数据   源数据东西复制不到sheet2 里面

你把表格传上来，然后说明你要得到的效果是如何，我们录制个视频给你看

上传附件，说明一下你的操作过程

逻辑步骤：
1. 打开源数据文件。
2. 在源数据文件中定位并选择要整理的数据。
3. 复制选定的数据。
4. 打开目标文件（Sheet2）。
5. 在目标文件中定位并选择要粘贴数据的位置。
6. 将复制的数据粘贴到目标文件中。
7. 关闭源数据文件。

代码示例：
```vba
Sub CopyDataToSheet2()
    Dim srcWorkbook As Workbook ' 源数据文件
    Dim destWorkbook As Workbook ' 目标文件（Sheet2）
    Dim srcWorksheet As Worksheet ' 源数据工作表
    Dim destWorksheet As Worksheet ' 目标工作表（Sheet2）
    Dim srcRange As Range ' 源数据范围
    Dim destRange As Range ' 目标数据范围

    ' 设置源数据文件路径和文件名
    Dim srcFilePath As String
    srcFilePath = "C:\Path\To\SourceFile.xlsx"

    ' 打开源数据文件
    Set srcWorkbook = Workbooks.Open(srcFilePath)

    ' 设置源数据工作表
    Set srcWorksheet = srcWorkbook.Sheets("Sheet2") ' 根据实际情况修改工作表名称

    ' 定位并选择源数据范围
    ' 根据实际情况修改范围
    Set srcRange = srcWorksheet.Range("A1:D10")

    ' 复制源数据
    srcRange.Copy

    ' 关闭源数据文件（保存或不保存修改根据实际情况决定）
    srcWorkbook.Close SaveChanges:=False

    ' 设置目标文件（Sheet2）
    Set destWorkbook = ThisWorkbook ' 当前工作簿
    Set destWorksheet = destWorkbook.Sheets("Sheet2") ' 根据实际情况修改工作表名称

    ' 定位并选择目标数据范围
    ' 根据实际情况修改范围
    Set destRange = destWorksheet.Range("A1")

    ' 粘贴数据到目标文件
    destRange.PasteSpecial Paste:=xlPasteValues

    ' 清除剪贴板内容
    Application.CutCopyMode = False

    ' 关闭目标文件（保存或不保存修改根据实际情况决定）
    destWorkbook.Close SaveChanges:=True
End Sub
```

以上代码示例假设源数据文件为"SourceFile.xlsx"，目标文件为当前工作簿中的"Sheet2"工作表。你需要根据实际情况修改文件路径、工作表名称和数据范围。

逻辑步骤：
1. 打开源数据文件。
2. 在源数据文件中定位并选择要整理的数据。
3. 复制选定的数据。
4. 打开目标文件（Sheet2）。
5. 在目标文件中定位并选择要粘贴数据的位置。
6. 将复制的数据粘贴到目标文件中。
7. 关闭源数据文件。

代码示例：
```vba
Sub CopyDataToSheet2()
    Dim srcWorkbook As Workbook ' 源数据文件
    Dim destWorkbook As Workbook ' 目标文件（Sheet2）
    Dim srcWorksheet As Worksheet ' 源数据工作表
    Dim destWorksheet As Worksheet ' 目标工作表（Sheet2）
    Dim srcRange As Range ' 源数据范围
    Dim destRange As Range ' 目标数据范围

    ' 设置源数据文件路径和文件名
    Dim srcFilePath As String
    srcFilePath = "C:\Path\To\SourceFile.xlsx"

    ' 打开源数据文件
    Set srcWorkbook = Workbooks.Open(srcFilePath)

    ' 设置源数据工作表
    Set srcWorksheet = srcWorkbook.Sheets("Sheet2") ' 根据实际情况修改工作表名称

    ' 定位并选择源数据范围
    ' 根据实际情况修改范围
    Set srcRange = srcWorksheet.Range("A1:D10")

    ' 复制源数据
    srcRange.Copy

    ' 关闭源数据文件（保存或不保存修改根据实际情况决定）
    srcWorkbook.Close SaveChanges:=False

    ' 设置目标文件（Sheet2）
    Set destWorkbook = ThisWorkbook ' 当前工作簿
    Set destWorksheet = destWorkbook.Sheets("Sheet2") ' 根据实际情况修改工作表名称

    ' 定位并选择目标数据范围
    ' 根据实际情况修改范围
    Set destRange = destWorksheet.Range("A1")

    ' 粘贴数据到目标文件
    destRange.PasteSpecial Paste:=xlPasteValues

    ' 清除剪贴板内容
    Application.CutCopyMode = False

    ' 关闭目标文件（保存或不保存修改根据实际情况决定）
    destWorkbook.Close SaveChanges:=True
End Sub
```

以上代码示例假设源数据文件为"SourceFile.xlsx"，目标文件为当前工作簿中的"Sheet2"工作表。你需要根据实际情况修改文件路径、工作表名称和数据范围。

你试试行不行

解决了 谢谢 用的rpa 机器人

可否分享一下给我project呢，谢谢

505600595@qq.com