软件: Excel
版本: 2016
请问大家，
我利用小计功能将一个工作表内的资料自动分页(50页)了，
请问如何将50个分页资料变成50工作表呢?
谢谢。

宏，循环，worksheets.add来新增工作表，worksheet.name更名，复制贴上方面range.copy或range = range.value，看是否要带格式，复制范围方面工作表函数match或range.find找列号或储存格如已经有这50个工作表且名称都同分组小计字段的话函数cell info_type 以filename，mid配合find或search来取得工作表名称(固定长度就right)，取得后match 工作表名称和工作表名称 合计的列号，有这二个列号的资讯就可以函数offset、index或indirect配合row或column回传；这二个列号相减加1为列数，判断，不符合时回传空字串""

谢谢s大，但我的程度还不到宏，目前还是无解.sorry...