VBA—EXCEL操作集合—05

大家好，我在前几篇文章中介绍到了VBA的一些基础操作，今天我们用之前介绍的一些功能来做一个简单的小例子。

场景：某学校要根据学生本次期末考试的总成绩评定出”一等奖、二等奖、三等奖“，并授予其奖状以资奖励。

如上图所示，这个是学生本次期末考试的成绩数据表。

下面的截图，是需要打印的奖状的模板。

我们先来看代码。代码中用到了这样几个功能。

1、如何正确获取到最大行号（最后一行有数据的行所在的行号）

2、VBA给指定单元格赋值

3、VBA设置指定单元格字体的大小

4、打印指定Sheet

其中前3个，我在之前的文章中都讲过了，这里就不再重复讲解了。

打印指定Sheet所用的方法是：Sheet对象.PrintOut

Function getEndRowNumber(wk)
    Dim num_down
    num_down = wk.Range("A1").End(xlDown).Row
    getEndRowNumber = num_down
End Function

Sub batchPrintTemplate()
    Dim srcWk, descWk As Worksheet
    Dim end_num, i