在Excel中如何使用VBA快速制作分数条

1、打开我们的原始学生成绩Excel表格，在标题行的上面再插入一行，并设置该行的边框线为上下框线，如图所示。

3、依次单击“工具”--“宏”--“Visual Basic编辑器”，如图所示。

5、在这里我输入如下代码：Sub 分数条() For i = 3 To 60 Step 3 Range("A1:F2").Copy Rows(i).Select Selection.Insert Shift:=xlDown Application.CutCopyMode = False Next End Sub

7、到这里其实我们的分数条已经生成了，我们单击图中红圈处的按钮，即可回到Excel表格视图。