請教如何執行小計後，自動填上文字? - Excel程式區

[發問] 請教如何執行小計後，自動填上文字?

　頭銜: 街友一族

論壇貢獻勳章

1^# 跳轉到 »

發表於 2010-12-3 23:29 | 顯示全部帖子

Sub xx()
n = [f:f].Find("總計").Row
Cells(n, 1) = "累計"
Range(Cells(2, 1), Cells(n, 1)).SpecialCells(4) = "本頁小計"
End Sub

靜思自在 : 【時間成就一切】時間可以造就人格，可以成就事業，也可以儲積功德。