当句子中出现数字时插入新行

Question

我有一个长句子，其中包含数字和单词。

每当句子中出现数字时，我都需要添加新行来将其分开。这可以是 1、2 或 3 位数字。

例子

23 hfsiiub 2 etwehh iugi 456 etwie hewg 3 oiehoehgs 

我需要这样

23 hfsiiub. 
2 etwehh iugi
456 etwie hewg
3 oiehoehgs   

这可以在 Microsoft Excel 或 Word 中完成吗？

Answer 1

将数据放入单元格中，选择单元格并运行：

Sub GiveMeABreak()
    Dim r As Range, i As Long
    For Each r In Selection
        arr = Split(r.Text, " ")
        For i = LBound(arr) To UBound(arr)
            If IsNumeric(arr(i)) Then
                arr(i) = vbCrLf & arr(i)
            End If
        Next i
        r.Value = Join(arr, " ")
        r.WrapText = True
    Next r
End Sub

前：

之后：

Answer 2

您的问题可以通过使用“文本到列”命令解决：

• 选择单元格并从数据选项卡点击文本到列。
• 选择固定宽度选项然后点击 下一个。

你会发现：

• 双击需要删除的分隔箭头，最后单击结束 按钮。

你会发现：

• 你会发现，单词在“数字”处被分开了。

• 选择分隔行 &复制它。
• 将单元格指针放置在空白单元格处并使用特殊粘贴然后转置。

您可以按所需顺序获取数据：

Answer 3

在 Word 中，使用通配符“查找和替换”来搜索[0-9]{1,3}并替换^p^&