将单元格文本分隔为每行一个单词

Question

如何将一行中的一系列单元格 (B2:CT2) 转换为每行一个单词（在同一单元格中）？

我有将列扩展的代码，但它将所有文本推送到一行，所以它太长了。

Sub AutoFitWrappedText()
    With Range("B2:CT2").EntireColumn
        .ColumnWidth = 255 ' maximum width
        .AutoFit
    End With
End Sub

示例单元格：狗和猫

它的样子：

Do

g

an

cat

我的目标：

Dog

and

Cat

Answer 1

可以使用公式。确保启用了自动换行。

=SUBSTITUTE("DOG AND CAT", " ", CHAR(10))

VBA：

Sub Test()

    With ThisWorkbook.Worksheets("Sheet1").Range("B:CT")
        .Replace What:=" ", Replacement:=vbCrLf, LookAt:=xlPart, _
                 SearchOrder:=xlByRows, MatchCase:=False
        .WrapText = True
    End With

End Sub