VBA排序，对多个表按一个列表排序

zzicon

原始文件中，有n个工作表(n>10)，每个工作表中有若干列（>10列），附件已稍做精简。

需求：用一个带VBA宏excel，对源文件中所有工作表中的数据，按以下次序对列排序：市场、年份、产品、供应商、车间、类型。都排升序。
注意，不是每张表都包括以上全部6列，
举例1：某工作表内不含供应商和车间信息，那么就按市场、年份、产品、类型，排升序。
举例2：某工作表只有产品和费用两列，那么就按产品升序。
在源文件里排序，排序完保存，关闭源文件。

附上源文件和期望的结果文件

请各位老师指导。

quqiyuan

参与一下，供参考。。。

zzicon

感谢大神。
我之前就卡在了 中间那段For 循环

quqiyuan

zzicon 发表于 2024-7-11 22:12
感谢大神。
我之前就卡在了 中间那段For 循环

哦，关键字超过3个，所以不能用range.sort，用这个sortfields.add可以添加好多个都可以。