Excel数据行上移需求：将周期间隔2空白行改为1空白行

需求回顾 #

原数据A列是工作日数据，每周5行数据后跟着2个空白行（对应周六日），需要在相邻列实现数据上移，让每周之间仅保留1个空白行，同时避免筛选时丢失所有空白行。

方法1：VBA宏（最直接高效） #

如果不想折腾公式，用VBA可以一键搞定，还能避免筛选的问题：

1. 按Alt+F11打开VBA编辑器
2. 右键左侧的工作表，选择「插入」→「模块」
3. 粘贴以下代码：

Sub RemoveExtraBlankRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    Set ws = ActiveSheet ' 如需指定工作表，改成Sheets("你的表名")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 从下往上遍历，防止删行打乱索引
    For i = lastRow To 2 Step -1
        ' 连续两个空白行时，删除第二个
        If ws.Cells(i, "A").Value = "" And ws.Cells(i - 1, "A").Value = "" Then
            ws.Rows(i).Delete
        End If
    Next i
End Sub

4. 按F5运行宏，A列的连续空白行就会被合并成单个，每周数据间只留一个空白行。

方法2：公式实现（无需宏） #

如果想用公式在相邻列生成结果，需要结合辅助列：

1. 辅助列标记需保留的行：在C1单元格输入公式，下拉到数据末尾：
   =IF(A1<>"",1,IF(AND(A1="",OFFSET(A1,-1,0)<>""),1,0))
   • 逻辑：非空行标记1；空白行但上一行是数据（即每周第一个空白行）标记1；连续第二个空白行标记0（不保留）
2. 提取目标数据：在B1单元格输入数组公式（旧版Excel按Ctrl+Shift+Enter确认，新版直接回车），下拉：
   =IFERROR(INDEX(A:A,SMALL(IF($C$1:$C$100=1,ROW($C$1:$C$100)),ROW())),"")
   • 逻辑：提取所有标记为1的行，生成符合要求的结果列

筛选问题解决 #

如果用公式生成的B列筛选时丢失空白行，不要直接筛选「非空白」，而是筛选辅助列C等于1的行，这样就能同时保留数据行和每周之间的空白行。

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