任务介绍
上一回我们进行了分类汇总值的统计,这一回我们统计分类明细。具体任务目标为将下面“分数”sheet页按性别分成男/女两个sheet页,每个sheet页的结构一样。实际上就是将总表的各行分别复制到不同sheet页即可。
VBA编程
- 依次点击【开发工具】→【Visual Basic】,双击【ThisWorkbook】进入编程页面。如果想同时保留多个宏,也可以【右键】【插入模块】进入编程页面。
- 编写如下程序
Sub 分类明细统计()
'
' 按分类统计明细
'
'
Dim maleRow, femaleRow As Long '用于记录两个分sheet页分别记录到哪一行了
maleRow = 2
femaleRow = 2
Dim nameList() As String '定义一个字符串数组
nameList = Split("男生,女生", ",") '通过Split函数将字符串通过“,”分割成字符串数组
'删除sheet
For Each name