主题：避免表格自动输入换行符

表格不会自动带有，是不是你导入的数据？当时就有了？

清除参考代码

For Each dc As DataCol In DataTables("表A").datacols
    For Each dr As DataRow In DataTables("表A").datarows
        dr(dc.name) = cstr(dr(dc.name)).trim(chr(13),chr(10))
    Next
Next