返回列表 上一主題 發帖

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

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

如附檔,謝謝大大! Book111.rar (11.92 KB)

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

TOP

謝謝oobird大大這麼晚還給我回覆,我來研究看看,再一次感謝!

TOP

        靜思自在 : 吃苦了苦、苦盡廿來,享福了福、福盡悲來。
返回列表 上一主題