VBA 5：worksheets 工作表对象 案例：自动生成本月日报表模板、月度汇总

1.'以第一张表为模板自动生成本月所有日报，要求报表日期为2016-5-1，表名为5月1日 字样

Sub rb()

Dim i As Integer

For i = 1 To 31

Sheet1.Copy after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Range("E5") = "2016-5-" & i
Sheets(Sheets.Count).Name = "5月" & i & "日"


Next

End Sub

 

2.汇总本月数据，按照日期、审核人、金额

Sub hz()
Dim i As Integer

For i = 2 To Sheets.Count
Sheet1.Range("b" & i + 8) = Sheets(i).Range("e5")
Sheet1.Range("c" & i + 8) = Sheets(i).Range("e6")
Sheet1.Range("d" & i + 8) = Sheets(i).Range("e44")
Next

End Sub