VBA 用变量或数组引用不连续单元格

在工作中,常常会遇到引用不连续单元格的情况,经过摸索总结,有以下方法：

一、对象变量引用单元格本身

假如有三个不连续的单元格：A1,B2,B5

则用vba方法选中这三个不连续单元格的代码如下:

1, range("A1,B2,B5").select

2,Union([A1], [B2], [B5]).selcet

以上均可使用range对象变量进行直接引用.

dim c as range

set c=range("A1,B2,B5")  或者 set c=Union([A1], [B2], [B5])

二、数组元素引用单元格数据

为了便于循环引用，可将不连续单元格数据使用array()函数组成自定义数组,然后循环引用.

比如上述三个单元格,

dim brr

brr = Array([a1], [b2], [b5])

当然,考虑到通用性问题,可以将array中的元素使用变量代替

dim brr

dim a,b,c

set a=[a1]:set b=[b2]:set c=[b5]

brr= Array(a,b,c)

组成自定义数组后,便可使用brr(i)的方式进行相应单元格数据的引用.

三、不连续单元格一次性赋值

上面一、二我们得到了不连续单元格的对象引用以及数组方式的数据引用.为此将二者结合起来,可以进行不连续单元格的批量赋值.

采用循环,一对一进行赋值.

 

dim rng as range

i=0

for each rng in c

rng=brr(i)

i=i+1

next