Foxtable(狐表)用户栏目专家坐堂 → [求助]想删除单元格内空行,却改变了单元格字符串长度


  共有1963人关注过本帖平板打印复制链接

主题:[求助]想删除单元格内空行,却改变了单元格字符串长度

帅哥哟,离线,有人找我吗?
jyh7081
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:957 积分:8440 威望:0 精华:0 注册:2012/10/3 13:25:00
[求助]想删除单元格内空行,却改变了单元格字符串长度  发帖心情 Post By:2016/9/6 15:56:00 [只看该作者]

下面这段代码是想删除  单元格内  多余空行(单元格内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

 回到顶部