excel - 使用 Excel VBA 在 excel 单元格中创建多个换行符

Question

我将尝试尽可能清楚地解释这个问题。
我在 Excel 文件中有一个列，该列中的每个单元格都包含对某些问题的描述。描述有四个级别如Name , Issue , Solution和 Result ，所有这四个在同一个单元格中。

我需要 VBA 代码来找到每个单元格中的每个级别并在单元格中创建换行符。
所以代替这个:

Name: 123 Issue: My issue: Solution: Try to resolve Result: Resolved.

代码运行后会是这样的:

  Name: 123 (line break) 
  Issue: My issue (line break) 
  Solution: Try to resolve (line break)  
  Result: Resolved (line break) 

请让我知道是否有任何解决方案？

Answer 1

选择包含数据的单元格并运行:

Sub FixData()
    Dim r As Range
    Set r = ActiveCell
    t = r.Text
    t = Replace(t, "Issue:", Chr(10) & "Issue:")
    t = Replace(t, "Solution:", Chr(10) & "Solution:")
    t = Replace(t, "Result:", Chr(10) & "Result:")
    r.Value = t
    r.WrapText = True
End Sub

如有必要，您可以将其放入循环中。