Excel 一键排课代码：高效管理小学课程安排

以下是一个简单的Excel一键排课代码示例，用于排列小学课程。\n\nvba\nSub 一键排课()\n Dim 课程表 As Worksheet\n Dim i As Integer\n Dim j As Integer\n \n ' 设置课程表工作表\n Set 课程表 = ThisWorkbook.Worksheets("课程表")\n \n ' 清空课程表\n 课程表.Cells.Clear\n \n ' 填写星期几标题\n 课程表.Cells(1, 1).Value = "星期一"\n 课程表.Cells(1, 2).Value = "星期二"\n 课程表.Cells(1, 3).Value = "星期三"\n 课程表.Cells(1, 4).Value = "星期四"\n 课程表.Cells(1, 5).Value = "星期五"\n \n ' 填写时间段标题\n 课程表.Cells(2, 1).Value = "8:00-8:45"\n 课程表.Cells(3, 1).Value = "9:00-9:45"\n 课程表.Cells(4, 1).Value = "10:00-10:45"\n 课程表.Cells(5, 1).Value = "11:00-11:45"\n 课程表.Cells(6, 1).Value = "14:00-14:45"\n 课程表.Cells(7, 1).Value = "15:00-15:45"\n 课程表.Cells(8, 1).Value = "16:00-16:45"\n \n ' 遍历所有课程，填写到课程表相应位置\n For i = 2 To 8\n For j = 2 To 6\n 课程表.Cells(i, j).Value = "课程名称"\n Next j\n Next i\nEnd Sub\n\n\n请注意，这只是一个示例代码，具体的排课需求可能会有所不同，您可以根据自己的需求进行修改和扩展。