我想要完成的是我有一个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

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

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

This is where users enter the daily data

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

This is where the data needs to populate to