excel - 用工作日、总计和平均自动填充顶行

Posted 2023-02-24

【中文标题】excel - 用工作日、总计和平均自动填充顶行

【英文标题】：excel - autofill top row with weekdays, total, and avg

【发布时间】：2018-04-13 21:45:50

【问题描述】：

我在 excel 中有一个跟踪文档，第一行是工作日列表，然后是该周的总数，然后是平均值。我正在尝试自动填充 5 个工作日 + 总计 + 平均值的这种模式，但我没有选择只用这种模式填充工作日。

我想要什么：

4/2/18 - 4/3/18 - 4/4/18 - 4/5/18 - 4/6/18 - Total - Avg - 4/9/18 - 4/10/18 - 4/11/18 - etc

我得到了什么：

4/2/18 - 4/3/18 - 4/4/18 - 4/5/18 - 4/6/18 - Total - Avg - 4/7/18 - 4/8/18 - 4/9/18 - etc

我想自动填充 5 个工作日，然后是 Total，然后是 Avg，我该怎么做？

【参考方案1】：

试试，

dim d as long

for d=43192 to 43465    '02-apr-2018 to 31-dec-2018
    select case weekday(d, vbmonday)
        case 6
            cells(1, d-43191) = "total"
        case 7
            cells(1, d-43191) = "avg"
        case else
            cells(1, d-43191) = d
            cells(1, d-43191).numberformat = "m/d/yy"
    end select
next d