如何用VBA的WHILE/UNTIL循环将Excel分段字符串分别存至单元格

修改后的完整代码 #

Sub SplitAndJoinByJack()
    Dim lastRow As Long
    Dim currentRow As Long
    Dim outputRow As Long
    Dim currentSegment As String
    
    ' 获取A列最后一行的行号
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    ' 初始化B列的输出起始行
    outputRow = 1
    currentSegment = ""
    
    For currentRow = 1 To lastRow
        ' 遇到新的Jack时，先保存上一段内容
        If Cells(currentRow, 1).Value = "Jack" Then
            If currentSegment <> "" Then
                Cells(outputRow, 2).Value = currentSegment
                outputRow = outputRow + 1
                currentSegment = ""
            End If
            currentSegment = Cells(currentRow, 1).Value
        Else
            ' 非Jack内容追加到当前段，用空格分隔
            currentSegment = currentSegment & " " & Cells(currentRow, 1).Value
        End If
    Next currentRow
    
    ' 写入最后一段未处理的内容
    If currentSegment <> "" Then
        Cells(outputRow, 2).Value = currentSegment
    End If
End Sub

核心逻辑说明 #

• 动态适配数据范围：不再固定遍历行号，而是通过Cells(Rows.Count, 1).End(xlUp).Row自动获取A列有数据的最后一行，适配不同长度的数据集。
• 分段累积与触发写入：用currentSegment变量持续收集当前段的内容，每当碰到新的"Jack"，就把之前收集的内容写入B列的下一个单元格，然后重置currentSegment开始新的分段。
• 收尾处理：循环结束后，最后一段没有后续的"Jack"来触发写入，因此单独判断并写入最后一段内容。
• 格式处理：追加非Jack内容时添加空格，确保拼接后的语句是自然的空格分隔格式。

执行结果 #

针对你的示例数据，运行代码后B列会生成以下内容：

Jack learns VBA
Jack sits on a couch
Jack wants chocolate cake

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