宏

先建立22个班的空课程表（包括晚自习，顺序固定，工作表名称固定）

Sub test1()

n = Worksheets.Count

rem 计算当前所有工作表数量

For i = 1 To 22

Worksheets(i).Activate

rem 激活第i个工作表
tmp = ActiveSheet.Name + " (2)"

rem 得到当前激活表的名称，再形成需要修改的的工作表名称
[d4:h10].Copy Sheets(tmp).[d4]

rem 复制当前活动工作表的D4：H10区域,到目标工作表的D4单元格粘贴

Application.Wait Now + TimeValue("0:00:4")

rem 延时4秒

Next
End Sub