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

VBA是Visual Basic的一种宏语言。很多人看到“语言”二字就会感觉到很难，其实并非如此。今天小编就以一个简单的例子，来演示如何利用VBA来快速的制作学生分数条，大家可以从中体会到VBA的方便之处——简单的几行代码，就可以把我们的工作效率提高很多。

前期准备工作（包括相关工具或所使用的原料等）

电脑Excel

详细的操作方法或具体步骤

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

为了使分数条的标题更加明显，我们设置标题行的填充颜色为浅橙色，如图所示。

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

在弹出的编辑器中，我们依次单击“插入”--“模块”，如图所示。

在这里我输入如下代码：

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

代码输入完成，我们点击“运行子过程/用户窗体”按钮，如图所示。

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

你的分数条是不是已经生成好了呢？我们删除表格的前3行，然后就大功告成了。利用VBA来制作分数条是不是很简单呢？

注意事项

小编使用的是Excel2003，其它版本可以参考。小编演示的是20个学生的情况，每个学生的分数条占用3行，所以是“For i=3 To 60 Step 3 ”，现在你学会根据自己的实际情况改变相应的数字了吧？经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本教程系本人依照真实经历原创，未经许可，谢绝转载。