excel - 让 Excel 根据日期将数据从一个单元格复制到另一个单元格

Question

提前道歉，因为这是我第一次在这个网站上发布一些东西，并不是最擅长解释问题。

我有一个电子表格，其中包含生产数据，例如每天的米数、每月的米数等。这些值是通过使用 Rockwell VantagePoint Excel 插件从 PLC 添加标签来更新的(如果您对此不熟悉，这部分无关紧要不是我正在努力的)

我需要在月底将数据从一个单元格复制到同一张表上的另一个单元格。基本上，每月仪表字段需要在月底复制到另一个单元格中，以记录该月运行的仪表。每月运行的计量表在月底重置为 0。

基本上我需要在那个月底将 J7 中的值复制到 W 列中的相应月份。如果它可以忽略有利的年份，因为我不需要它来保留旧值，这意味着我只需要一列。

我在 MS-Excel 和 VBA 方面都有一些经验，但主要是在 MS-Access 方面，从不在 MS-Excel 方面。如果可以尽可能简单地解释答案并亲自动手，将不胜感激。

在谷歌搜索问题后，我遇到了这个公式并更改了范围以适合我的工作表，但 Excel 不喜欢它说它包含错误

=QUERY( A1:B6; "select B where A =date """&TEXT(TODAY();"yyyy-mm-dd")&""" "; 0

如果我没有正确解释自己，再次抱歉。

Answer 1

如果您的工作簿不能保证在每个月底打开，我会在每次打开它时更新值，例如(应该放在 ThisWorkbook 中):

'Runs when you open the workbook
Private Sub Workbook_Open()
    'Loops through U3 to the last used cell in that column
    For Each c In Range(Cells(3, 21), Cells(Rows.Count, 21).End(xlUp))
        'Applies the J7 value to the current month and exits the sub
        If Month(c) = Month(Now) Then c.Offset(, 2).Value = [J7]: Exit Sub
    Next c
End Sub

此外，这并不重要，但我会在 U3:U14 中应用以下公式以始终获得正确的日期:

=EOMONTH(DATE(YEAR(TODAY()),ROW()-2,15),0)