先问内文的分页是指
https://i.imgur.com/bRbXp46.jpg 这个吗？如果是的话请以工作表称呼，excel内工作表和分页是不同的再问工作表"111"内原有资料还会存在于工作表"资料"内吗？不存在，宏，循环(看要循环于这30个以上工作表名称的清单或是worksheets亦或sheets的集合，worksheet.name可取得工作表名)，如内文举例，有排序的话，range.find或工作表函数match来找到第一笔的储存格或列号，工作表函数countif可取得笔数，range.resize取得范围，range.copy复制和贴上确认如工作表111内最后一笔有值资料的储存格或列号range.end、range.find或工作表函数count、counta(资料有连续的话)======================================================存在的话，函数cell可取得完整路径和完整档名，再以mid、find来取出公式所在的工作表名 ^工作表名称之后就要看资料有没有排序，有，index、offset或indirect配合match和row没有，small(if(..