根据条件自动判断增加行

johnson_wjm

各位大神，请教见附件内，每日有6个固定时间点（0:00、4:00、8:00、12：00、16:00、20:00）对应六行数据，但是会出现每日随机缺少的时间点，能根据每日固定的时间点把缺失的新增一行。。。感谢感谢！！

一哥很二

A3=A2+1/6,然后向下填充，可以不？

gmafhnpl

Sub TEST()
For i = Range("A1").CurrentRegion.Rows.Count To 1 Step -1
If Hour(Cells(i, 1)) = 0 Then
    i = i - 1
    Else
        If Hour(Cells(i, 1)) - Hour(Cells(i - 1, 1)) <> 4 Then
            Rows(i).Resize(1).Insert
        End If
End If
Next
End Sub
用此VBA代码实现

sobili

楼主，看下这是你要的结果吗？ 新增行.rar (17.96 KB, 下载次数: 7)

2022-4-2 16:21 上传

点击文件名下载附件

问名题外话，留空行是为了填数据吗？如果仅仅为了表格版式我感觉没必要。
噢，对了。这是我用PQ做的。如果哪位高手懂M函数的话，欢迎指导如何简化操作。