关于单元格区域导入到变量生成数组

ccq000000

恳求解答！(有附件)
Sub aa()
Dim arr
    ‘如果把[a1:b5]导入到变量arr可以生成数组
      arr = Range("a1:b5")
     '但如果需要把[a1:b5]和[d8:e10]这两个单元格区域同时导入到arr中该怎么做?(不考虑做两个区域的循环赋值)
End Sub

xx.rar (11.24 KB, 下载次数: 3)

2021-3-16 17:08 上传

点击文件名下载附件

cui26896

不做处理这样就可以
Sub exprmnt()
Dim rng As Range, n%, i%, j%, s, m%, arr, brr
With Sheets("Sheet1")
  Set rng = .Range("a1:b5, d8:e10")
n = rng.Areas.Count
  ReDim arr(1 To n)
  For i = 1 To UBound(arr)
    arr(i) = rng.Areas(i).Value
  Next
End With
End Sub

cui26896

要处理请参考附件
xx.zip (14.27 KB, 下载次数: 4)

2021-3-17 10:58 上传

点击文件名下载附件

315617070

将2个区域复制到1个区域，作为新区域，再将新区域赋值给数组

ccq000000

cui26896 发表于 2021-3-17 10:57
不做处理这样就可以
Sub exprmnt()
Dim rng As Range, n%, i%, j%, s, m%, arr, brr

我觉得用字典在多表中直接循环赋值可能更好点(当然是指源只有 两列)。

cui26896

ccq000000 发表于 2021-5-6 13:53
我觉得用字典在多表中直接循环赋值可能更好点(当然是指源只有 两列)。

如果表规范，与其用字典，不如直接ADO，SQL取A，B，D，E字段名提取更简单。

bridgeyao

最笨的办法：
Sub test()
[d8:e10].Offset(1, 0).Copy [a1].End(4).Offset(1, 0)
arr = Range([a1], [a1].End(4))
End Sub