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