union联合

tpb123 · 发表于 2022-11-12 00:15

Sub a()
Set rng1 = Range("A1").Resize(2, 5)
Set rng1 = Union(rng1, Cells(5, 1).Resize(1, 5))
rng1.Select
arr = rng1
End Sub

各位老师们好，今天用这段代码测试了一下，可以选中联合后的区域，但是不能写入数组，是不是union联合出来的区域，不支持写入数组呢，联合出来的区域有没有办法写进写的数组？？？

taller · 发表于 2022-11-12 01:28

tpb123 · 发表于 2022-11-12 02:46

taller 发表于 2022-11-12 01:28

谢谢，那就是不支持非连续区域，并成新数组了

liulang0808 · 发表于 2022-11-12 08:26

如果确实要用数组，可以设置动态数组，然后读入数据
或者将数据拷贝到一个中间过渡表格，再读入数组
不过注意不同区域的形状，列数情况

tpb123 · 发表于 2022-11-12 12:04

liulang0808 发表于 2022-11-12 08:26
如果确实要用数组，可以设置动态数组，然后读入数据
或者将数据拷贝到一个中间过渡表格，再读入数组
不过 ...

谢谢，老师指点

		自动登录	找回密码
密码			免费注册

[讨论] union联合