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

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

1 个答案: