On Error Resume Next

   

    Set wf = Application.WorksheetFunction

   

    If rSel.Areas.Count = 1 Then

        If rSel.Columns.Count = 2 Then

            vStatus = "

相差

: "& Format(wf.Sum(rSel.Columns(1)) - wf.Sum(rSel.Columns(2)),"#,##0.00")

        ElseIf rSel.Rows.Count = 2 Then

            vStatus = "

相差

: "& Format(wf.Sum(rSel.Rows(1)) - wf.Sum(rSel.Rows(2)), "#,##0.00")

        Else

• 好身材都不是一朝一夕就练出来的学会其中的技巧才会让你事半功倍
• “东方—2018”战略演习：中方参演官兵话实战
• 医生手绘示意图普及急救常识 希望精进绘画技巧展现更多
• 汇总目录|别找了，你需要的excel教程全在这里！按时更新……
• 试用期就破格升职加薪？这位95后做的excel图表遭曝光……
• 你会用excel中这5个明星快捷键吗？
• excel函数避坑指南，建议收藏！【Excel教程】
• 5个让你工作效率飞升的常用必会Excel技巧【Excel教程】
• 曾被高手们玩坏的Excel超级表【Excel教程】
• 【直播预告】今晚8点Excel极速贯通班21期开课