Excel 用于查找字符串并将其替换为换行符的VBscript

我需要一个脚本来查找给定段落中的

“

，

：

和

；

，并将它们转换为换行符

例如：

什么；什么时候“你：喜欢

应转换为

什么 什么时候 你 喜欢 也许：

Sub luxation()
    Dim s1 As String, s2 As String, s3 As String, s4 As String
    s1 = Chr(34)
    s2 = ":"
    s3 = ";"
    s4 = Chr(10)
    Cells.Replace s1, s4
    Cells.Replace s2, s4
    Cells.Replace s3, s4
End Sub

---

哪种语言？VB脚本？chr（10）指的是什么？我需要在单词之间换行..在EXCEL中它将是VBA而不是VBScript..CHR（10）返回ASCII 10它不工作。。你能一步一步地帮助我吗。。非常感谢。。我会给你样本数据这是样本数据。。不是来自同一个细胞。10个具有相似数据的单元格。。所有的名字都应该一个接一个。。我是说在不同的牢房里。。请协助..您是在寻找VBScript（在Excel外部运行）还是VBA（在Excel内部运行）？