将换行后内容拆分至新行：VBA循环生成无限行问题排查

问题根源 #

你的代码触发无限循环和异常的核心原因有两个：

• 用For Each正向遍历单元格，每次插入行都会把后续未处理的单元格向下推送，导致循环永远处理不完新生成的行，最终陷入死循环。
• 逐个字符遍历查找vbLf，但仅插入行却不处理内容拆分，且重复插入（一个单元格里有几个换行符就插几行），既没完成拆分需求，又加剧了循环异常。

修正后的代码 #

改用从下往上遍历行的方式，避免插入行干扰未处理的单元格，同时用Split函数高效拆分内容：

Dim ws As Worksheet
Dim lRow As Long
Dim i As Long
Dim splitContent As Variant
Dim j As Long

Set ws = Workbooks(newBook).Sheets(1)
lRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

' 从最后一行往前遍历，插入行不会影响上方未处理的行
For i = lRow To 1 Step -1
    splitContent = Split(ws.Cells(i, "A").Value, vbLf)
    ' 判断单元格内容是否包含换行符
    If UBound(splitContent) > 0 Then
        ' 批量插入需要的行数（拆分后的元素数量-1）
        ws.Rows(i + 1 & ":" & i + UBound(splitContent)).Insert
        ' 将拆分后的内容依次写入对应行
        For j = 0 To UBound(splitContent)
            ws.Cells(i + j, "A").Value = splitContent(j)
        Next j
    End If
Next i

关键改进点 #

• 反向遍历：从最后一行到第一行处理，插入行不会改变上方未处理行的位置，彻底杜绝无限循环。
• Split函数：直接按vbLf拆分内容为数组，替代逐个字符遍历的低效写法，代码更简洁。
• 批量操作：根据拆分后的元素数量一次性插入对应行数，减少Excel的操作次数，提升运行效率。

内容的提问来源于stack exchange，提问作者j.zamora