VBA 获取单元格数据，数组，获取数组值的方法 ，数组置换

当前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) 数组置换