基于两列数值删除Excel行的VBA实现方案问询

如果你需要保留次月1日00:00的行，删除其他不符合条件的数据，可以通过多条件判断实现，以下是两种常见场景的解决方案：

场景1：月份、日期、时间分为单独列 #

假设你的表格中：

• 列A是月份（数值格式，如1=1月）
• 列B是日期（数值格式，如1=1日）
• 列C是时间（时间格式，如00:00:00）

使用下面的代码，会自动保留次月1日0点的行，删除其他行：

Sub KeepOnlyTargetRows()
    Dim lastRow As Long
    Dim i As Long
    Dim targetMonth As Integer
    Dim targetDay As Integer
    Dim targetTime As Date
    
    ' 设定目标条件：次月1日00:00:00
    targetMonth = Month(Date) + 1 ' 自动获取当前月份的下一个月，也可手动指定（如targetMonth = 2）
    targetDay = 1
    targetTime = TimeValue("00:00:00")
    
    ' 获取数据最后一行（若有表头，把1改成2）
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 从后往前遍历，避免删除行导致索引错乱
    For i = lastRow To 1 Step -1
        ' 多条件判断：不满足目标条件就删除行
        If Not (Cells(i, 1).Value = targetMonth And _
               Cells(i, 2).Value = targetDay And _
               Cells(i, 3).Value = targetTime) Then
            Rows(i).Delete
        End If
    Next i
End Sub

场景2：日期时间合并在同一列 #

如果你的表格中列A是完整的日期时间（如2024/2/1 00:00:00），可以用更简洁的代码：

Sub KeepOnlyTargetDateTime()
    Dim lastRow As Long
    Dim i As Long
    Dim targetDateTime As Date
    
    ' 设定目标日期时间：次月1日0点
    targetDateTime = DateSerial(Year(Date), Month(Date)+1, 1) + TimeValue("00:00:00")
    
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 从后往前遍历删除不符合条件的行
    For i = lastRow To 1 Step -1
        If Cells(i, 1).Value <> targetDateTime Then
            Rows(i).Delete
        End If
    Next i
End Sub

注意事项 #

• 运行代码前务必备份表格，防止误删数据
• 如果表格有表头，把循环起始的1改成2，避免删除表头行
• 确保对应列的单元格格式正确：数值列是数值格式，时间/日期列是对应格式，否则条件判断会出错

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