1、将数据复制到记事本，看能不能选中“空格”字符，粘贴到EXCEL中进行替换。2、一列列处理，选中列，数据——分列，固定列宽，前面半个字符作一列，并设为“不导入此列”。
Sub a()Dim rn As Range For Each rn In ActiveSheet.UsedRange() rn = Trim(rn) NextEnd Sub
