vb整合多个excel表格到一张_VB使用多个目标将excel从一个工作表复制并粘贴到另一个工作表...

我想要完成的是我有一个excel工作表，每天更新 . 我想实现一个脚本，该脚本从这些单元格中获取数据，并通过按钮将它们添加到另一个工作表上的下一个可用单元格中 . 我有一个基本代码，通过将一系列单元格复制到下一个可用空白单元格的其他工作表 . 但这就是我想要在sheet1上的单元格A1(这是一个日期)需要复制到sheet2上的A7，G7，M7，A34，G34和M34 . 然后B2，B3，B4，B5从sheet1复制到sheet2上的B7，C7，D7，E7 . 然后在片材2上从片材1到H7，I7，J7，K7的C2，C3，C4，C5 .

工作表1单元格永远不会仅更改用户放入这些单元格的数据 . 单击按钮后，Sheet2单元格必须向下移动一个

我正在玩的代码

Sub Rectangle1_Click()

Application.ScreenUpdating = False

Dim copySheet As Worksheet

Dim pasteSheet As Worksheet

Set copySheet = Worksheets("Sheet1")

Set pasteSheet = Worksheets("Sheet2")

copySheet.Range("A1").Copy

pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

Application.CutCopyMode = False

Application.ScreenUpdating = True

End Sub

也许我正在使用的图片会有所帮助

这是用户输入每日数据的地方：

这是数据需要填充到的位置：