主题：如何让某列能够自动将空格去除并换成其他符号？

好像没什么好办法，这样试试：

Dim s As String = "A   B       C      D"
Output.Show(s.Replace("     "," ").Replace("    "," ").Replace("   "," ").Replace("  "," ").Replace(" ","|"))

或经处理个别数据就可以处理整列数据。

For Each dr As DataRow In DataTables("表A").DataRows
Dim s As String = dr("第一列")
    dr("第一列") = s.Replace("     "," ").Replace("    "," ").Replace("   "," ").Replace("  "," ").Replace(" ","|")
Next