Excel中标题相同的两行，如何保留相同项，合并不同项，并变成一列？
发布网友
发布时间：2022-04-23 05:10
共2个回答
热心网友
时间：2023-10-15 21:32
powerquery*吧，代码如下：
let
源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
更改的类型 = Table.TransformColumnTypes(源,{{"文本名称", type text}, {"一级分类", type text}, {"二级分类", type text}, {"话务小结", type text}}),
逆透视的列 = Table.UnpivotOtherColumns(更改的类型, {"文本名称"}, "属性", "值"),
已添加自定义 = Table.AddColumn(逆透视的列, "自定义", each Table.Transpose(逆透视的列)),
删除的列 = Table.RemoveColumns(已添加自定义,{"属性", "值"}),
删除的其他列 = Table.SelectColumns(删除的列,{"文本名称", "自定义"}),
删除的副本 = Table.Distinct(删除的其他列),
#"展开的“自定义”" = Table.ExpandTableColumn(删除的副本, "自定义", {"Column2", "Column3", "Column4", "Column5", "Column6"}, {"Column2", "Column3", "Column4", "Column5", "Column6"}),
删除的顶端行 = Table.Skip(#"展开的“自定义”",1),
提升的标题 = Table.PromoteHeaders(删除的顶端行, [PromoteAllScalars=true]),
重命名的列 = Table.RenameColumns(提升的标题,{{List.First(Table.ColumnNames(提升的标题)), "文本内容"}})
in
重命名的列
提供一个示例文件供参考：链接: https://pan.baidu.com/s/1Y0iDmgoFrwK_UuHRmpo9rg
用法：更改左边表格的内容，在Excel2016及以上版本中，在【数据】选项卡点击“全部刷新”即可看到最新结果。
如果是老版本，请自行百度查下powerquery插件的安装及刷新按钮所在位置。
热心网友
时间：2023-10-15 21:33
直接用excel比较难，可以结合文本编辑器来替换完成，方法如下：
按 文本名称（A列）排序；
在B列前插入空列；
在B列使用公式判断，B2公式：=if(a2=a1,"待替换文本",a2)，下拉复制整列；
将B到D列拷贝到文本编辑器；
将 回车 和 待替换文本 替换成 Tab字符，看不同编辑器方式不同，ultraedit里是 替换 ^p待替换文本 为 ^t，^p是回车换行，^t是tab字符；
将替换完的文本拷回excel，首行手工复制下。
