我想要完成的是我有一个每日更新的Excel工作表。我想实现一个脚本,该脚本从这些单元格中获取数据,并通过按钮将它们添加到另一个工作表上的下一个可用单元格中。我有一个基本代码,通过将一系列单元格复制到下一个可用空白单元格的其他工作表。但这就是我想要在sheet1上的单元格A1(这是一个日期)需要复制到sheet2上的A7,G7,M7,A34,G34和M34。然后B2,B3,B4,B5从sheet1复制到sheet2上的B7,C7,D7,E7。然后C2,C3,C4,C5从sheet1到H7,I7,J7,K7在sheet2上。
工作表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
也许我正在使用的图片会有所帮助
这是用户输入每日数据的地方:
这是数据需要填充的地方: