ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 2332|回复: 10

[求助] 数据源的会计科目编码1241.09,通过power query清洗后就变成了1241.0899999999999了?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-2-25 12:11 | 显示全部楼层 |阅读模式
数据源的会计科目编码1241.09,通过power query清洗后就变成了1241.0899999999999了,百思不得。求助于江湖!急!

代码如下,也可见附件! 说明下:数据源都是文本格式。


let
    源 = Folder.Files("E:\EAS明细\EAS明细账\EAS科目余额表"),
    删除的其他列 = Table.SelectColumns(源,{"Content", "Name"}),
    已添加自定义 = Table.AddColumn(删除的其他列, "自定义", each Excel.Workbook([Content])),
    #"展开的“自定义”" = Table.ExpandTableColumn(已添加自定义, "自定义", {"Name", "Data", "Item", "Kind", "Hidden"}, {"自定义.Name", "自定义.Data", "自定义.Item", "自定义.Kind", "自定义.Hidden"}),
    筛选的行 = Table.SelectRows(#"展开的“自定义”", each ([自定义.Name] = "Sheet1")),
    删除的列 = Table.RemoveColumns(筛选的行,{"自定义.Item", "自定义.Kind", "自定义.Hidden", "自定义.Name", "Content", "Name"}),
    #"展开的“自定义.Data”" = Table.ExpandTableColumn(删除的列, "自定义.Data", {"Column1", "Column2", "Column3", "Column4", "Column5", "Column6"}, {"自定义.Data.Column1", "自定义.Data.Column2", "自定义.Data.Column3", "自定义.Data.Column4", "自定义.Data.Column5", "自定义.Data.Column6"}),
    筛选的行1 = Table.SelectRows(#"展开的“自定义.Data”", each ([自定义.Data.Column1] <> "公司"))
in
    筛选的行1


汇总.zip

807.64 KB, 下载次数: 24

TA的精华主题

TA的得分主题

发表于 2020-2-25 14:10 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
我试了一下,先将加载为连接,然后再加载到新表,就正常了。

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-2-25 14:20 | 显示全部楼层
tony@cq 发表于 2020-2-25 14:10
我试了一下,先将加载为连接,然后再加载到新表,就正常了。

先将加载为连接是怎么做的? 是不加载为表,而加载到“仅创建连接”吗?   这样试了好像是不行
微信截图_15826114739249.png

TA的精华主题

TA的得分主题

发表于 2020-2-25 14:37 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
lhl_ah 发表于 2020-2-25 14:20
先将加载为连接是怎么做的? 是不加载为表,而加载到“仅创建连接”吗?   这样试了好像是不行

这是第一步,然后再加载到表,就正常了。

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-2-25 15:16 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
tony@cq 发表于 2020-2-25 14:37
这是第一步,然后再加载到表,就正常了。

还是不行。会计科目编码有的还是有很多位小数。
微信截图_2.png

TA的精华主题

TA的得分主题

发表于 2020-2-25 15:52 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-2-25 15:57 | 显示全部楼层
wdx223 发表于 2020-2-25 15:52
转换成文本处理

源数据本来就是文本格式。  你所说的转换成文本处理是在哪个步聚?可以发个演示文档上来不

TA的精华主题

TA的得分主题

发表于 2020-2-25 16:54 | 显示全部楼层
lhl_ah 发表于 2020-2-25 15:16
还是不行。会计科目编码有的还是有很多位小数。

反正我是这样可以的,顺便送你一句简单的合并代码,看到你的手动操作代码真累。
微信截图_20200225144503.png

合并汇总表1表2.rar

756.45 KB, 下载次数: 2

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-2-25 17:08 | 显示全部楼层
tony@cq 发表于 2020-2-25 16:54
反正我是这样可以的,顺便送你一句简单的合并代码,看到你的手动操作代码真累。

这位大侠,你发上来的结果还是一样的。B列中有一部分科目代码(不是所有)还是有很多个位数。跟我5楼的截图一样。

TA的精华主题

TA的得分主题

发表于 2020-2-25 20:09 | 显示全部楼层
本帖最后由 libo5563 于 2020-2-25 20:25 编辑

Table.TransformColumns(筛选的行1,{"自定义.Data.Column2",each try Text.From(Number.Round(Number.From(_),2)) otherwise Text.From(_)})       在最后加这句,对不正确显示的先转为数字,取小数2位,不能转的就让他保持文本,再把所有的转为文本。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 15:11 , Processed in 0.053075 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表