跨月制作考勤表，如何自动换月呢

大河之舞

Sub kaoqinbiao()
Dim rowshu As Integer, columnshu As Integer, jishu As Integer, i As Integer, j As Integer, t As Integer
rowshu = ActiveCell.Row
columnshu = ActiveCell.Column
jishu = Range("h1") * 2
For i = columnshu To columnshu + jishu Step 2
For j = 1 To 2
If j = 1 Then
Cells(rowshu, i) = Range("c2") & "月" & Range("e2") + t & "日上午"
End If
If j = 2 Then
Cells(rowshu, i + 1) = Range("c2") & "月" & Range("e2") + t & "日下午"
End If
Next j
t = t + 1
Next i
End Sub

拜请高手！