问题现象：

处理代码：

Dim r As Row = Tables("工艺操作流程表").Current
Dim s As String = r("工艺说明")

' 将所有换行标准化为 vbLf
s = System.Text.RegularExpressions.Regex.Replace(s, "\r\n|\r", vbLf)

' 去除连续多个换行，只保留一个
s = System.Text.RegularExpressions.Regex.Replace(s, vbLf & "{2,}", vbLf)

' 去除首尾换行符（如果有）
s = s.Trim(vbLf.ToCharArray())

' 最后统一换行回 Windows 格式（可选）
s = s.Replace(vbLf, vbCrLf)

r("工艺说明") = s

结果：