Office中国论坛/Access中国论坛

标题: 好难格式的文件啊！！！在各位大侠的指导下我也格式成功了，不知对否？其他新手也可 [打印本页]

作者: renke601 时间: 2005-3-18 01:54
标题: 好难格式的文件啊！！！在各位大侠的指导下我也格式成功了，不知对否？其他新手也可
斑竹及各位大侠好：

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

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

[attach]9461[/attach]

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

作者: 情比金坚 时间: 2005-3-18 21:06
表头你就自己画吧！下面的数据处理：1、用自动筛选筛出├──┤那些行，删掉！2、用数据分列，分列标志为│就OK了。

作者: renke601 时间: 2005-3-19 03:05
谢谢情比金坚斑竹，不过按照你的办法我做了一半却作不下去了，我是新手能告诉我再怎样往下做好吗。（见图和附件）现在我越来越喜欢这了。[attach]9485[/attach]

[attach]9486[/attach]

[attach]9487[/attach]

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

作者: dg_life 时间: 2005-3-19 04:11
选中A列，进行排序，删除多余垃圾数据，剩下的部分点击“数据——分列——按分隔号分列——在最后一个选项里输入|”进行分列即可

作者: 情比金坚 时间: 2005-3-19 05:35
对！其实你的数据只存在于A列。

作者: renke601 时间: 2005-3-19 05:36
谢谢楼上的！怎么变成这样了？我错在那里？[attach]9489[/attach]

[attach]9490[/attach]

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

作者: 情比金坚 时间: 2005-3-19 05:55
筛选：

[attach]9491[/attach]

分列：

[attach]9492[/attach]

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

作者: renke601 时间: 2005-3-19 22:01
标题: 还是情斑竹教的好，既不复杂又便于操作。谢谢了！
我这样格式对吗？1、点击数据里的筛选再点击自动筛选

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

3、删除多余的行列

4、点击数据里的分列，

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

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

作者: renke601 时间: 2005-3-19 22:07
再向情斑竹请教，在其他论坛里有的网友给我的帖子里写的这些公式不知能否实现同样的效果？怎样操作啊？谢谢！！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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)