VBA开发EXCEL学校工作上课与坐班统计

 

希望各位高手，有什么不妥的地方，请发表一下意见

下面代码：

Sub  补课记载()
Sheet2.Activate


Dim  c  As  Range

For   Each  c In Range( " C5:H40 " )
     c.Value  =   0
Next  c
For   Each  c In Range( " K5:P40 " )
     c.Value  =   0
Next  c
For   Each  c In Range( " S5:X40 " )
     c.Value  =   0
Next  c
For   Each  c In Range( " AA5:AF40 " )
     c.Value  =   0
Next  c


For   Each  c In Range( " AI5:AN40 " )
     c.Value  =   0
Next  c

Dim  oneFeild  As  Range
Dim  twoFeild  As  Range
Dim  threeFeild  As  Range
Dim  fourFeild  As  Range
Dim  teacherName   As   String

Set  oneFeild  =  Range( " B5:B40 " )
Set  twoFeild  =  Range( " J5:J40 " )
Set  threeFeild  =  Range( " R5:R40 " )