重新整理一下数据。去掉回车已经在以前的帖子回复
For Each r As Row In Tables("表A").Rows Dim s As String = "" For i As Integer = 0 To r("简历").Length - 1 If asc(r("简历")(i)) = 10 AndAlso asc(r("简历")(i-1)) <> 13 Then s &= vbcrlf Else s &= r("简历")(i) End If Next r("简历") = sNext