求助无数个小计处怎么方便的插入分页符？

oldbig

见附表，
主要要求是在没一个小计处都插入一个分页符，这个表只是个例子，实际表内大概有几千个小计。如果把小计筛选出来手工一个一个插入分页符，工作量太大了。
希望各位前辈提供一个方便的方法。谢谢，万分感谢。
=====================
jack5d朋友不好意思，我代码贴进去，忘记点执行了。呵呵。万分抱歉。代码可行。谢谢

[ 本帖最后由 oldbig 于 2011-1-27 16:32 编辑 ]

jack5d

我把[小计]改成[小計],因為我是繁體XP,所以你貼入代碼是把[小計]改成[小计]切記切記!

Sub test()
Dim i%
  For i = [a65536].End(xlUp).Row To 2 Step -1
      If Cells(i, 1) = "小計" Then {改成[小计]}
          Cells(i + 1, 1).Select
          ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
      End If
  Next i
End Sub

cnwall

同样问题，关注。

安然祥和

你看看能否按F5、定位公式，插入分页符，OK

oldbig

这个是vba吗？没用过，我试了怎么不行了，不好意思哟。vba我还不懂

oldbig

原帖由 安然祥和 于 2011-1-27 12:29 发表
你看看能否按F5、定位公式，插入分页符，OK

你的意思是：小计是公式求和，然后定位求和的行，再插入分页符。是这样理解的吧，这个方法应该不行，因为我实际表格内都是大量的公式。包括小计这个栏都是公式求出来的。
也要谢谢你。祝新年快乐，工作顺利。谢谢。

jack5d

我給你弄好了,只是我是繁體的,有些代碼中的文字必須得改回簡體才能用,VBA你不用會,你只要在[放法1]右鍵>程式碼>你把If Cells(i, 1) = "小計" Then 中的[小計]改成簡體的[计]程序就不會出錯了

lhx120824

定位的方法还是可取的，我试试也用了。