请教excel 带有转置的vba代码

benbosty

一个人数据有多项，请问，怎么将项目名称转置到列中，让一个就一条数据，具体文件在附件里，在线等，vba代码，本人初学，而且是自学，水平不高，求助ing

benbosty

期待有高手帮助，等待中，用Excel

zpy2

benbosty 发表于 2021-12-27 08:23
期待有高手帮助，等待中，用Excel

【【Excel 一维 原始表格 转换成 二维 期待表格】-哔哩哔哩】 https://b23.tv/R7DAM1s
论坛搜索一下，或者试试这个。

benbosty

zpy2 发表于 2021-12-27 08:37
【【Excel 一维 原始表格 转换成 二维 期待表格】-哔哩哔哩】 https://b23.tv/R7DAM1s
论坛搜索一下，或 ...

谢谢你的关注，但是视频没有配音，没有搞懂，好在今天上午花了一点时间，用Excel公式，加辅助表格搞定，稍等，将我的“成果”公布一下

benbosty

自我解决问题，花了将近一天的时间，虽然没有好的解决办法，但是最终能够解决，面对上万条数据，只有拼下去。现将自己的心得进行分享，

第一步：将原始表格的A、B列，单独复制到一个临时工作表中，删除重复值，放到期待结果工作表中。
第二步：将原始表格的C列，单独复制到一个临时工作表中，删除重复值，将删除的重复值的子项目区域复制，在word中选择性粘贴--无格式数值，ctrl+H，替换^p，为^t，再复制到原始表格的“结果”右侧。同时复制到期待结果工作表的C1，（这一步是将行项目名称，改为列标题）
第三步：在原始表格的E2中输入=IF(E$1<>$C2,"",$D2)，然后向右填充，再向下填充。得到表格中的散状的数据。
第四步：在期待结果工作表中的C2单元格输入“=SUMIF(原始表格!$B$2:$B$23,期待结果!$B2,原始表格!E$2:E$23)”
第五步：向右，向下填充，OK

其实，就用excel基本公式，配合临时工作表及word就能完成，用不了几个公式。但是花了我很长时间。具体内容附件中也有。针对上万条数据，这个方法虽然笨拙些，但是能够解决，希望有高手能够写vba代码，共同学习。

zpy2

benbosty 发表于 2021-12-27 12:43
自我解决问题，花了将近一天的时间，虽然没有好的解决办法，但是最终能够解决，面对上万条数据，只有拼下去 ...

用sum，也可以用数据透视表