使用VBA在Excel工作表中搜索日期，以便按月合并数据

Sub SearchAndMergeByMonth()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim currentDate As Date
    Dim currentMonth As String
    
    ' 设置要搜索的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为你的工作表名称
    
    ' 获取最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 初始化当前日期和月份
    currentDate = ws.Cells(2, "A").Value ' 假设日期在A列，第一行为标题
    currentMonth = Format(currentDate, "yyyy-mm") ' 格式化为年-月
    
    ' 循环遍历每一行数据
    For i = 3 To lastRow ' 假设数据从第3行开始，前两行为标题和日期
    
        ' 检查当前行的日期是否属于当前月份
        If Format(ws.Cells(i, "A").Value, "yyyy-mm") = currentMonth Then
            ' 如果是同一个月份，则将当前行的数据合并到上一行
            ws.Cells(i - 1, "B").Value = ws.Cells(i - 1, "B").Value + ws.Cells(i, "B").Value ' 假设要合并的数据在B列
            ws.Rows(i).Delete ' 删除当前行
        Else
            ' 如果是下一个月份，则更新当前月份和日期
            currentMonth = Format(ws.Cells(i, "A").Value, "yyyy-mm")
            currentDate = ws.Cells(i, "A").Value
        End If
    
    Next i
    
    ' 调整列宽以适应合并后的数据
    ws.Columns("B").AutoFit ' 假设合并后的数据在B列
    
End Sub