EXCEL VBA：在特定位置换行单元格文本

Question

这是示例数据：

项目
项目#1 * 项目名称_1
物品#2 * 物品名称_2

我需要像这样在“*”处换行文本

项目#1
商品名称_1

---

项目#2
商品名称_2

这是我在浏览 Stackoverflow 和其他人后尝试的：

Sub BreakAndWrap()    
Dim rng As Range
Set rng = Range("A1", Range("A250").End(xlUp))

For Each cell In rng
    cell.Value = Replace(cell.Value, "*", ChrW(8209))
    cell.WrapText = True
Next

结束子

这会将“*”替换为“-”并换行，但手动且在随机位置而不是连字符处。

Answer 1

将其替换为 Chr(10) 字符。

Sub BreakAndWrap()    
Dim rng As Range
Set rng = Range("A1", Range("A250").End(xlUp))

For Each cell In rng
    cell.Value = Replace(cell.Value, "*", Chr(10))
    cell.WrapText = True
Next
End Sub