請教如何執行小計後，自動填上文字? - 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

靜思自在 : 人要知福、惜福、再造福。