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

 

相关推荐

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:书香水墨 设计师:CSDN官方博客 返回首页

打赏作者

logo_28

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值