Function WEEKTOTALPLUS(Optional arg As Variant) '基本流程就是1.没参数,不管了;有参数,横着排 Dim weeks As Variant '不能Dim weeks(7) as String ,然后weeks =arry(7个值)这样操作 weeks = Array("周一", "周二", "周三", "周四", "周五", "周六", "周日") '还是用IsMissing判断有没有参数 ...