excel中满足条件插入分页符请教各位大虾

可以用vba完成。 下面的代码将判断当前工作表A列的数值，如果是1则在该单元格上方增加一个分页符。 PS:使用方法 按住ALT，依次按F11,I,M 粘贴下面的代码至右侧窗口后按F5运行。 ================================ Sub 分页() For I = 2 To [A65536].End(xlUp).Row If Cells(I, 1) = 1 Then ActiveSheet.HPageBreaks.Add BEFORE