Excel 门外汉学VBA系列教程 教学考试成绩统计实例

阳朔游游

【VBA提高】单元格区域的 Cells属性、Columns 属性和 Rows 属性
对原始数据进行统计时，因数据所占用的单元格区域并不是固定不变的，可以使用CurrentRegion属性或UsedRange属性动态获取数据单元格区域，如何引用该单元格区域内的某个单元格、某行、某列或某个区域呢？
可以使用单元格区域的 Cells属性、Columns 属性和 Rows 属性引用该数据区域内的单元格。我们可以这样理解，一个工作表所有单元格组成一个巨大的矩形单元格区域，那么一个小块的矩形单元格区域也可以看作一个小小工作表，如图4-14所示，为了便于说明问题，我们给出已知的单元格区域“C4:G13”。

图 4-14
VBA 程序将会以 C4:G13 区域的第1列作为 A 列而重新给该区域的各列定义，也即是一个相对的位置表示。该区域的第 1 列作为 A 列， 该区域的第 2 列作为 B 列……；该区域第1行作为第1行而重新给该区域的各行定义，该区域的第1行与第1列交叉的单元格A1样式可用“A1”表示，第2行与第1列交叉的单元格A1样式可用“A2”表示……
这个区域就是一个小小工作表，工作表引用单元格的方法在该区域内都是适用的。如：
激活工作表的D6单元格，即该区域的B3单元格，可用如下代码：

1. Sub 单元格区域1()
   
2. '    Range("D6").Select
   
3. '    Range("C4:G13").Range("B3").Select
   
4.     Range("C4:G13").Cells(3, "B").Select
   
5. End Sub

复制代码

选定工作表的D6:F9单元格区域，即该区域的B3:D6单元格区域的代码：

1. Sub 单元格区域2()
   
2. '    Range("D6:F9").Select
   
3. '    Range("C4:G13").Range("B3:D6").Select
   
4.     Range("C4:G13").Rows("3:6").Columns("B:D").Select
   
5. End Sub

复制代码

选定工作表的C5:G5单元格区域，即该区域的A2:E2单元格区域，也是该区域的第2行。代码如下：

1. Sub 单元格区域3()
   
2. '    Range("C5:G5").Select
   
3.     Range("C4:G13").Rows(2).Select
   
4. End Sub

复制代码

Count一下，看看该区域有多少行多少列多少个单元格。

1. Sub单元格区域4 ()
   
2.     MsgBox ("《" & ActiveSheet.Name & "》工作表的" & "“C4:G13”区域共有" & Range("C4:G13").Cells.Count & "个单元格、" & Range("C4:G13").Rows.Count & "行、" & Range("C4:G13").Columns.Count & "列")
   
3. End Sub

复制代码

太多了，不一一列举了，你可以再多试试。总算结束这一讲了，这课备得真心辛苦，如何组织才能深入浅出，哆嗦这么多，这是实现Excel智能化的第一步，脚踏实地的学，相信能给各位亲们一点帮助。