excel - 将换行后的每个单词分成新行

Question

我的循环似乎创建了无限行并且出现了问题

For Each Cell In Workbooks(newBook).Sheets(1).Range("A1:A" & lRow)
    Checker = Cell.Value
    For Counter = 1 To Len(Checker)
        If Mid(Checker, Counter, 1) = vbLf Then
            holder = Right(Mid(Checker, Counter, Len(Checker)), Len(Checker))
            Workbooks(newBook).Sheets(1).Range(Cell.Address).EntireRow.Insert
        End If
    Next
Next Cell

Answer 1

使用反向循环。 对于 i = lRow 到 1 Step -1。另外，为了分隔单词，您可以使用 SPLIT()。

这就是你正在尝试的吗？

Option Explicit

Sub Sample()
    Dim ws As Worksheet
    Dim lRow As Long
    Dim i As Long, j As Long
    Dim Ar As Variant
    
    '~~> Change this to the relevant worksheet
    Set ws = Sheet2
    
    With ws
        '~~> Find last row in Column A
        lRow = .Range("A" & .Rows.Count).End(xlUp).Row
        
        '~~> Reverse Loop in Column A
        For i = lRow To 1 Step -1
            '~~> Check if cell has vbLf
            If InStr(1, .Cells(i, 1).Value, vbLf) Then
                '~~> Split cell contents
                Ar = Split(.Cells(i, 1).Value, vbLf)
                
                '~~> Loop through the array from 2nd position
                For j = LBound(Ar) + 1 To UBound(Ar)
                    .Rows(i + 1).Insert
                    .Cells(i + 1, 1).Value = Ar(j)
                Next j
                
                '~~> Replace cells contents with content from array from 1st position
                .Cells(i, 1).Value = Ar(LBound(Ar))
            End If
        Next i
    End With
End Sub

之前

之后