Question

我在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，我该怎么做？

Answer 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

excel - 自动填充顶行，包括工作日，总计和平均值

1 个答案: