Excel 所有紅色字體的求和

打開Excel，按alt+F11 開啓宏模式 選擇「插入」---》「模塊」 Function sumcolor(rng1 As Range, rng2 As Range) As Single Dim cell As Range sumcolor = 0 For Each cell In rng1 If cell.font.Color = rng2.font.Color Then sumcolor

>>阅读原文<<