求VBA代码：将Excel月度工时总额匹配粘贴至对应月份列

以下是满足需求的VBA代码，可实现将月度工时总额自动写入年度汇总区域的对应月份列：

Sub 月度工时汇总到年度()
    Dim currentMonth As Date
    Dim targetRow As Range
    Dim ws As Worksheet
    
    ' 指定操作的工作表，若需固定工作表可修改为Worksheets("工作表名称")
    Set ws = ThisWorkbook.ActiveSheet
    
    ' 获取C5单元格记录的当前月份日期
    currentMonth = ws.Range("C5").Value
    
    ' 在M27:M38范围内精确查找匹配的日期
    Set targetRow = ws.Range("M27:M38").Find( _
        What:=currentMonth, _
        LookIn:=xlValues, _
        LookAt:=xlWhole, _
        MatchCase:=False)
    
    ' 找到匹配项则写入工时，否则提示错误
    If Not targetRow Is Nothing Then
        ws.Cells(targetRow.Row, "N").Value = ws.Range("D36").Value
        MsgBox "工时已成功汇总至对应月份！", vbInformation
    Else
        MsgBox "未找到对应月份，请检查C5单元格格式或M列的月份列表是否匹配！", vbExclamation
    End If
End Sub

关键说明 #

• 工作表指定：如果你的工时卡固定在某个工作表（如"年度工时卡"），将Set ws = ThisWorkbook.ActiveSheet修改为Set ws = ThisWorkbook.Worksheets("年度工时卡")，避免切换工作表时出错。
• 精确匹配：LookAt:=xlWhole确保完全匹配日期值，避免因日期格式显示差异导致的匹配错误（需保证C5和M列的日期为纯日期值，而非文本）。
• 错误处理：未找到匹配月份时弹出提示，帮助用户排查格式或数据问题。

使用步骤 #

1. 打开Excel文件，按下Alt + F11打开VBA编辑器
2. 右键点击左侧工作簿名称，选择「插入」→「模块」
3. 将上述代码粘贴到新建的模块中
4. 返回Excel，可通过「开发工具」→「宏」选择月度工时汇总到年度运行，或添加表单按钮绑定该宏方便日常操作

内容的提问来源于stack exchange，提问作者Maria