Excel VBA：在新表中高级重新排列数据以进行导出

你是我最后的选择：） 我一直在努力完成以下Excel VBA工作：

在一个包含产品数据的庞大XLS中，我需要以一种特殊的重新排列格式导出其中的一些数据：同一产品的变体必须作为基础产品的附加产品导出，而不是作为单独的产品导出

重新排列的数据必须导出到.CSV文本文件，以便能够导入到Adobe Indesign（用于数据合并）

这些图片将更好地解释这个过程：请参阅下面的链接

源文件如下所示：基表

它包含一列“CatStyleNr”，用于检查产品是否属于其他部分。在出口过程中，应将具有相同“CatStyleNr”的产品组合在一行中，而不是不同的行中

必要的结果如下所示：导出表

据我所知，解决方案是遍历基表的每一行，并检查单元格“CatStyleNr”中的值是否已经存在于导出表中（在第二个工作表上还是不可见？）。如果还不存在，则应添加新行并复制数据。如果“CatStyleNr”已存在，则应将其添加到现有行中

如果你一直在尝试基于短部件的不同宏，我可以从其他线程复制，但它就是不起作用

---

有人能帮我吗？提前谢谢你

这就是我目前掌握的情况：

子ExportTXT（）

Dim i作为变量的行源

使用工作表（“选择”）。数据透视表（“选择”） 对于i=1到100 如果工作表（“导出”）.ListObjects（“TableExport”）.ListColumns（“CatStyleNr”）.DataBodyRange（i）=.PivotFields（“CatStyleNr”）.PivotItems（i），则 工作表（“导出”）.ListObjects（“TableExport”）.ListColumns（“高度2”）.DatagodyRange（i）=.PivotFields（“高度”）.PivotItems（i） 其他的 工作表（“导出”）.ListObjects（“TableExport”）.ListColumns（“名称”）.DataCodeRange（i）=.PivotFields（“名称”）.PivotItems（i）

如果结束 接下来我 以

端接头

但它总是被卡住