好难格式的文件啊！！！在各位大侠的指导下我也格式成功了，不知对否？其他新手也可

renke601

斑竹及各位大侠好：

   我的同事从上级部门拷贝一个TXB.txt文档，要我转成excel格式文件。可是导入后却出现了这样的格式，（见图和附件，这只是其中的一小部分。）为了今后便于编辑，问能否使其成为标准的EXCEL格式？有谁能帮我直接格式好传上来并写出步骤来就好了！我先谢谢了！！！

       注：其中的一些字符为了保护个人的隐私特改成**号了。

[此贴子已经被作者于2005-3-19 17:37:50编辑过]

情比金坚

表头你就自己画吧！下面的数据处理：1、用自动筛选筛出├──┤那些行，删掉！2、用数据分列，分列标志为│就OK了。

renke601

谢谢情比金坚斑竹，不过按照你的办法我做了一半却作不下去了，我是新手能告诉我再怎样往下做好吗。（见图和附件）现在我越来越喜欢这了。

[此贴子已经被作者于2005-3-18 19:16:04编辑过]

dg_life

选中A列，进行排序，删除多余垃圾数据，剩下的部分点击“数据——分列——按分隔号分列——在最后一个选项里输入|”进行分列即可

情比金坚

对！其实你的数据只存在于A列。

renke601

谢谢楼上的！怎么变成这样了？我错在那里？

[此贴子已经被作者于2005-3-18 21:38:05编辑过]

情比金坚

筛选：







分列：

[此贴子已经被作者于2005-3-18 21:56:41编辑过]

renke601

我这样格式对吗？1、点击数据里的筛选再点击自动筛选



2、删除多余的线段和字符



3、删除多余的行列



4、点击数据里的分列，



选择分隔号勾选其他再在其后面输入要分列的竖线符号，点击完成，最后再把个别单元格里的线段删除OK了。然后就是格式了。

[此贴子已经被作者于2005-3-19 14:14:40编辑过]

renke601

再向情斑竹请教，在其他论坛里有的网友给我的帖子里写的这些公式不知能否实现同样的效果？怎样操作啊？谢谢！！Sub Macro1()

'

Range("A1").Select

Cells.Replace What:="│", Replacement:="", LookAt:=xlPart, SearchOrder:= _

        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Cells.Replace What:="┌", Replacement:="", LookAt:=xlPart, SearchOrder:= _

        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Cells.Replace What:="├", Replacement:="", LookAt:=xlPart, SearchOrder:= _

        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Cells.Replace What:="┬", Replacement:="", LookAt:=xlPart, SearchOrder:= _

        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Cells.Replace What:="─", Replacement:="", LookAt:=xlPart, SearchOrder:= _

        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Cells.Replace What:="┐", Replacement:="", LookAt:=xlPart, SearchOrder:= _

        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Cells.Replace What:="┼", Replacement:="", LookAt:=xlPart, SearchOrder:= _

        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Cells.Replace What:="┤", Replacement:="", LookAt:=xlPart, SearchOrder:= _

        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

        

    Rows("1:5").Select

    Range("A5").Activate

    Selection.Delete Shift:=xlUp

    Columns("A:A").Select

    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _

        OtherChar:="┼", FieldInf=Array(Array(0, 1), Array(11, 1), Array(18, 1), Array( _

        22, 1), Array(39, 1), Array(50, 1), Array(60, 1)), TrailingMinusNumbers:=True

   

    Cells.Select

    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _

        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _

        :=xlPinYin, DataOption1:=xlSortTextAsNumbers

    Cells.EntireColumn.AutoFit

        

        

  

End Sub