VBA 替换excel单元格中某字符为换行符(alt+Enter) Sub test() For Each c In Range(“A1:C333”) If InStr(c.Value, “##”) > 0 Then c.Value = Replace(c.Value, “##”, Chr(10)) Next End Sub