当前sheet页：鼠标点击的单元格所在sheet页。
当前sheet页使用【sheet1】代替。
VBA 单元格获取：
1）获取范围内的数据：
例：sheet1.Range("c4:c14") 获取当前sheet页c4到c14的数据
2）获取单个单元格的值：
sheet1.Range("c4") 第4行第c列的值 或者 sheet1.Cells(1,2) '第一行第二列的值
VBA单元格数据放入数组：
~工作表如果2个以上挨着的数据放入变量，那么变量就变成二维数组。 具体看下面的例子
~一般使用dim定义变量比较方便，不用考虑类型，给变量赋什么值该变量就是什么类型。
dim sheet1 ‘定义变量，
Dim tables, tableIdlist，tableNamelist, namelist ‘定义变量
Set sheet1 = Worksheets("sheet页名字") '获取当前的excel中的sheet页
二维数组：
1）单列数据赋值变量
tableIdlist = sheet1.Range("a4:a14") '获取sheet1的a4：a14范围的值 ,其实是一个二维数组 一列多行的二维数组
tableNamelist = sheet1.Range("f4:f14")
namelist = sheet1.Range("c4:c14")
2）数据不是相连的片区的情况
tables = Array(tableIdlist, tableNamelist, namelist) '用几个数组 组合一个二维数组 ，要求数组必须有相同的数据数量
3）数据是相连的同一片区的情况
DIM list1
list1 = sheet1.Range("a1:b10") '获取sheet1的a1到b10的数据
获取数组值：
sheet页 范围数据直接赋值给vba数组的情况：
范围数据：一个以上的数据
如果使用dim定义，没有声明是数组的情况，2个以上数据赋值给变量，变量就自动变成数组。
例如：
单列赋值给变量：tableIdlist
|
数组获取值写法 |
获取的值 |
|
tableIdlist(1,1) |
第1个数据 |
|
tableIdlist(2,1) |
第2个数据 |
|
tableIdlist(3,1) |
第3个数据 |
整片数据赋值给变量，即使只有一列数据，变量也会成为一列多行的二维数组。
数组组合成的数组：tables
|
数组获取值写法 |
获取的值 |
|
tables(0)(1,1) |
第1列第1行 数据 |
|
tables(0)(2,1) |
第1列第2行 数据 |
|
tables(1)(1,1) |
第2列第1行 数据 |
多列数据赋值变量：list1
|
数组获取值写法 |
获取的值 |
|
tables(1,1) |
第1行第1列 数据 |
|
tables(1,2) |
第1行第2列 数据 |
|
tables(2,1) |
第2行第1列 数据 |
数组置换：
Set tableArray = Application.Transpose(tableArrayt) 数组置换
