请教大家把分列后的项目自动复制到对应列的问题。。

siegy

1、原始数据是从软件中导出的数据，把所有的核算项目（部门，地区，成本，资金来源）放在一起了，用竖线分隔开；无法直接用数据透视表
2、我首先用分列功能按竖线把所有的核算项目分成单独列
3、现在只能手动筛选列，手动COPY到对应的核算项目中去。
4、请问怎么写公式或者VB自动按核算项目COPY到对应列下面
5、原始数据分列后，核算项目的顺序不一样，而且不是每个核算项目都同时出现，所以会出现同一个核算项目在不同列的情况，只能手动逐列筛选一一复制，效率很低，也容易出错。
6、各位江湖大佬救急。

之前在大佬帮助下用函数解决了。。
现在用PQ有更好的解决方法吗？

ThxAlot

连带重复的字段名都顺便去掉了

1. let
   
2.     Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("VY1BDoIwFESvYljbE5HepDuNaCURVrjAhcZqJV24gKg14mX6P+0trFBMXM5k5r04jtxMukKS7rmxmfCBQXmFVBNIC6NVRKe/ia0PwPffCS4zLBUxWkO+HQKzzdwlOe4E6ozYpMJyNVQj0Nw5NrceGP72dbLtIvxH7fGCtZiw4ITHG3LuQ//7c3hep8+4lqjaiNIP", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type nullable text) meta [Serialized.Text = true]) in type table [Content = _t]),
   
3. 
   
4.     Custom1 = Table.Combine(List.Transform(Source[Content], each let l = List.Zip(List.Transform(Text.Split(_, "|"), Splitter.SplitTextByEachDelimiter({"-"},QuoteStyle.Csv,false))) in Table.FromRows({l{1}}, l{0})))
   
5. in
   
6.     Custom1

复制代码

看见星光

分列后自动复制到对应列.rar (16.03 KB, 下载次数: 12)

2022-6-3 09:26 上传

点击文件名下载附件

henry6

我也参与一下，来款基本操作版的



分列后自动复制到对应列（基本操作）.rar (12.77 KB, 下载次数: 8)

2022-6-3 13:06 上传

点击文件名下载附件

渡渡orz

1. =Table.Combine(Table.ToList(源,each let a=Text.SplitAny(_{0},"|-"),b=List.Alternate(a,1,1,1),c=List.Alternate(a,1,1,0) in Table.FromRows({c},b)))

复制代码

siegy

楼上各位大佬的代码看不懂哈。。。henry6老兄的步骤到是看懂了。。
都是高人。。非常感谢。。。

siegy

henry6 发表于 2022-6-3 13:06
我也参与一下，来款基本操作版的

老兄现在有了新问题。。
范例里每行都是有内容的，可以正常透视转二维表
但现在数据表里有空行，已经到这一步了。。


透视的时候显示
Expression.Error: 无法将值 null 转换为类型 Text。
详细信息:
    Value=
    Type=[Type]

这种情况怎么办啊

henry6

siegy 发表于 2022-6-6 19:51
老兄现在有了新问题。。
范例里每行都是有内容的，可以正常透视转二维表
但现在数据表里有空行，已经到 ...

先删除空行啊

siegy

henry6 发表于 2022-6-6 20:01
先删除空行啊

是的是的。刚才试着删除了空行。。可以透视了。。。
但索引1、2就没有了。。
然后把原来的表加上索引。。先是追加。。。发现连上去都是空值。。
换合并。。发现1、2又没有。。。原来是文本格式。。不知道为什么到下面去了。。
换成数字格式。。再升序排列。。。
总算搞定了。。


我觉得应该是追加啊。。
为啥是合并呢。。

henry6

删除空行两种方法

1、excel里，定位空值可以批量删除空行

2、在PQ查询界面，添加  删除空行的操作步骤，