如何用For循环将Excel中空行间隔的数据拆分至多个工作表

当然可以用For循环实现自动拆分，你手动录制的宏依赖固定行范围，灵活性差。下面是用循环自动识别空行、拆分数据的优化代码，同时去掉了录制宏里低效的Select操作：

Sub SplitByBlankRows()
    Dim wsSource As Worksheet
    Dim wsNew As Worksheet
    Dim lastRow As Long
    Dim startRow As Long
    Dim i As Long
    
    ' 设置源工作表（替换为你的实际工作表名称）
    Set wsSource = ThisWorkbook.Worksheets("1.8.22_8.17.22_demographics_rep")
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row ' 自动获取数据最后一行
    startRow = 1 ' 第一个数据块的起始行
    
    ' 循环遍历行，识别空行分隔符
    For i = 1 To lastRow + 1 ' +1是为了处理最后一个无空行结尾的数据块
        ' 判断当前行是空行，或已到数据末尾
        If (wsSource.Rows(i).EntireRow.Value = "" And i > startRow) Or i = lastRow + 1 Then
            ' 创建新工作表
            Set wsNew = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
            
            ' 剪切数据块到新工作表
            wsSource.Rows(startRow & ":" & i - 1).Cut Destination:=wsNew.Range("A1")
            
            ' 更新下一个数据块的起始行
            startRow = i + 1
        End If
    Next i
End Sub

代码说明： #

• 自动识别数据边界，无需手动指定行号
• 循环过程中自动检测空行，作为数据块的拆分标记
• 直接操作工作表和单元格对象，比Select+剪切粘贴的效率更高、稳定性更好
• 兼容最后一个数据块没有空行结尾的情况

使用注意： #

1. 替换代码中的工作表名称为你的实际源表名称
2. 确保分隔用的空行是完全空白的（无隐藏内容或空格），否则会影响识别
3. 运行前建议备份文件，避免误操作

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