用excel实现工作日志的更新和汇总

工作日志包括类别、子任务、优先级和用时。把当日工作更新后点更新按钮，存到sheet2的“数据库”（其实就是复制sheet1的内容到2）

代码如下：

Sub q()
Dim n, m As Integer
n = 1
m = 30
For a = 1 To 100
    n = a * 30 + 1
    m = a * 30 + 1
    While WorksheetFunction.CountA("a" & n & ":b" & m) = 0
        Sheets("Sheet1").Range("a1:b30").Copy Sheets("Sheet2").Range("a" & n & ":b" & m)
        Range("a" & n & ":b" & m + 1).Value = Date
    Wend
Next a
End Sub