我的 Excel 表格中存在以下问题,每个单元格都有以下提到的值。例如:单元格 D2 包含带编号的句子。
- 登录并配置 2. 测试用户 3. 打开菜单 4. 填写表格 5. 单击保存按钮
我希望上面的内容在同一个单元格内按预期排序,在单元格 D2 或相邻单元格 E2 内按以下格式进行编号
- 登录并配置
- 测试用户
- 打开菜单
- 填写表格
- 点击保存按钮
我尝试寻找宏,尝试自动编号、拆分单元格、定界,但都无法按预期工作。任何解决方案或在 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 函数来替换每个数字。