下面这段代码是想删除 单元格内 多余空行(单元格内Ctrl+Enter产生的空换行符,如果换行有内容仍保留),执行代码后却改变了其他单元格字符串长度,麻烦版主看看是哪里出了问题?
For Each t As Table In Tables
For Each r As Row In t.rows
For Each c As Col In t.cols
Dim ary() As String = cstr(r(c.name)).split(new Char() {chr(10), chr(13)})
Dim str As String = ""
For Each s As String In ary
If s.trim > "" Then
str &= s & vbcrlf
End If
Next
r(c.name) = str
Next
Next
Next