技术求助：按指定次数重复Excel日期并处理缺失温度记录

嘿，我来帮你搞定这个Excel日期重复和记录异常的问题！根据你说的场景——设备每15分钟记一次温，每天96条，日期列A会重复对应日期96次，偶尔设备卡了断记录，需要补全或者修正这个重复逻辑对吧？下面给你几个实用的方案，从简单到进阶都有：

如果你的原数据有缺失，直接生成一套标准的日期序列是最快的：

• 先确定你要覆盖的日期范围，比如从2017/09/01到2017/09/30
• 在空白列（比如B列）的第一个单元格（B1）输入起始日期：=DATE(2017,9,1)
• 在B2单元格输入公式：=IF(MOD(ROW()-1,96)=0,B1+1,B1)，然后下拉填充到2880行（30天×96条/天）
• 这个公式的逻辑很简单：每96行就自动切换到下一天，其余行保持当天日期，完美匹配设备的记录频率。之后你可以把这个生成的列替换原有的异常日期列，或者用来补全缺失的行。

如果原数据已经有部分记录，只是某些日期的记录数不足96，用Power Query批量处理效率最高：

• 选中你的数据区域，点击「数据」选项卡→「从表格/区域」（Excel 2016及以上版本），进入Power Query编辑器
• 先找出异常日期：选中A列，点击「转换」→「分组依据」，设置分组列为A列，新列名设为「记录数」，操作选「计数行」；接着筛选出「记录数」不等于96的行，这些就是设备卡顿导致缺失记录的日期
• 补全这些日期的96条记录：给筛选后的异常日期添加一个自定义列，输入公式 =List.Repeat({[A]},96)，然后点击这个自定义列的展开按钮，选择「展开到新行」
• 最后把处理好的数据加载回Excel，和原有正常数据合并即可。这个方法能一次性搞定所有异常日期，不用手动一条一条补。

如果你经常要处理这类设备导出的文件，写个小脚本就能一键生成规范的日期序列，甚至补全原有数据的缺失：

Sub FixDateRecords()
    Dim startDate As Date, endDate As Date
    Dim currentRow As Long, totalRows As Long
    Dim i As Integer
    
    ' 这里修改成你需要的日期范围
    startDate = DateValue("2017/09/01")
    endDate = DateValue("2017/09/30")
    
    currentRow = 1 ' 从第一行开始写入数据
    totalRows = (endDate - startDate + 1) * 96
    
    ' 可选：清空原有A列数据（如果需要完全重写）
    ' Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).ClearContents
    
    ' 循环生成每天96条的日期序列
    Do While startDate <= endDate
        For i = 1 To 96
            Cells(currentRow, "A").Value = startDate
            currentRow = currentRow + 1
        Next i
        startDate = startDate + 1
    Loop
    
    ' 设置统一的日期格式
    Range("A1:A" & totalRows).NumberFormat = "yyyy/mm/dd"
    
    MsgBox "日期序列处理完成！共生成" & totalRows & "条记录。"
End Sub

使用方法：按Alt+F11打开VBA编辑器，插入一个新模块，粘贴上面的代码，修改startDate和endDate为你的实际日期范围，运行脚本就搞定了。如果要补全原有数据的缺失，稍微调整脚本逻辑就能匹配原有数据的行号进行补填。

小提示 #

• 处理前一定要备份原文件，避免误操作丢失数据
• 如果原数据里还有温度值，补全日期后可以用相邻记录的平均值、线性插值等方法补全缺失的温度数据，让数据集更完整

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