带有数字的现有句子在单元格内自动编号为其他句子下方

带有数字的现有句子在单元格内自动编号为其他句子下方

我的 Excel 表格中存在以下问题,每个单元格都有以下提到的值。例如:单元格 D2 包含带编号的句子。

  1. 登录并配置 2. 测试用户 3. 打开菜单 4. 填写表格 5. 单击保存按钮

我希望上面的内容在同一个单元格内按预期排序,在单元格 D2 或相邻单元格 E2 内按以下格式进行编号

  1. 登录并配置
  2. 测试用户
  3. 打开菜单
  4. 填写表格
  5. 点击保存按钮

我尝试寻找宏,尝试自动编号、拆分单元格、定界,但都无法按预期工作。任何解决方案或在 Excel 中实现此目的的方法都将大有帮助。

我开发了下面的 vba 代码解决方案,对我有用

Public Sub LoopRow()

Dim c As Range

For Each c In Range("C2:C10")
c.Value = Application.WorksheetFunction.Substitute(c, " 1.", Chr(10) & "1.")
c.Value = Application.WorksheetFunction.Substitute(c, " 2.", Chr(10) & "2.")
c.Value = Application.WorksheetFunction.Substitute(c, " 3.", Chr(10) & "3.")
c.Value = Application.WorksheetFunction.Substitute(c, " 4.", Chr(10) & "4.")
c.Value = Application.WorksheetFunction.Substitute(c, " 5.", Chr(10) & "5.")

Next c

End Sub

使用下面的替换方法

Public Sub ReplaceParagraph()

Dim c As Range

For Each c In Range("E2:E4")

c.Value=Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(c.Value, "1.", _
Chr(10) & "1."), "2.", Chr(10) & "2."), "3.", Chr(10) & "3."), "4.", Chr(10) & "4."), "5.", Chr(10) & "5."), _
"6.", Chr(10) & "6."), "7.", Chr(10) & "7."), "8.", Chr(10) & "8."), "9.", Chr(10) & "9."), "10.", Chr(10) & "10.")
WrapText = True
Next c

End Sub

答案1

首先要插入换行符 #10

=SUBSTITUTE(A1, " 2.", CHAR(10)&"2.").

然后单击“主页”>“自动换行”以更改其格式。

您必须嵌套多个 SUBSTITUTE 函数来替换每个数字。

相关内容