请问大佬，如何用宏实现批量自动调整分页啊

上帝制造

如图，这一百多份都要分页，每个工作表都要整一次，太麻烦了，有没有宏能实现这个？自己录制的宏是固定的位置，代码语句如何调整一点思路没有。。。这是录制的宏：

1天前云南省

3 +1

全部评论 4

恰同学少年

借鉴wils回复 function test(){ for(let ws of Workbooks){ //循环所有工作簿 ws.Activate(); for(let sheet of Sheets){ //循环工作簿下的所有工作表 sheet.Activate(); let arr = Range("A1:A200000").Value2.flat(); const lastrow = arr.indexOf(arr.filter(x=>x).pop())+1; for(let rng of Range("A1:A"+lastrow)){ if(String(rng.Value2).includes("基础质量检验评定表")){ ActiveSheet.HPageBreaks.Add(rng); } } } } }

1天前 · 黑龙江省

恰同学少年

我理解， 1.固定15行，插入分页符。 2.固定单元格值，如检验负责人，插入分页符。

1天前 · 黑龙江省

恰同学少年

如果是同一工作表内。可以试试，看看能不能满足你的需要 function test(){ let arr = Range("A1:A200000").Value2.flat(); const lastrow = arr.indexOf(arr.filter(x=>x).pop())+1; for(let rng of Range("A1:A"+lastrow)){ if(String(rng.Value2).includes("基础质量检验评定表")){ ActiveSheet.HPageBreaks.Add(rng); } } }

1天前 · 黑龙江省

wils

创作者俱乐部成员

如果是同一个工作簿里多个工作表循环： for (const i of Sheets) { i.Activate() //你的代码 }

1天前 · 海南省

上帝制造

帖子 3
回复 3
点赞 13