不知你图中的那个符号是怎么搞出来的,不过道理很简单,只要你能输入的符号都能显示出来的。
如用冒号来替代你的符号。
If e.Row(e.Col.Name).contains(vbcrlf) Then e.Text = ":: " & e.Row(e.Col.Name)End If