为了统计一个员工各个月的工作量，工作薄中有12个工作表分表为”一月" "二月“......."十二月"
在员工工作量输入窗口输入工作量，自己编写了一个宏
Sub 工作量输入()
Dim x As Integer
If Sheet2.Cells(1, 1) = "一月" Then
Sheets("x") = Sheets("一月")
Sheets("x").Cells(2, 1) = 7
End If
End Sub
运行宏时，就出现运行错误“9” 下标越界。怎么解决？谢谢