请问如何循环将多个区域数据赋给数组？

alstar

比如

1. For Each Rng In [a1:100]
   
2.     If Rng = "真" Then
   
3.         arr = Rng.CurrentRegion
   
4.     Exit For
   
5.     End If
   
6. Next
   

复制代码

这么写会一直覆盖arr原数据，不叠加。用redim preserve arr不能用CurrentRegion方法不能直接一次性将一个区域赋给数组吗？

谢谢大牛帮小弟解答问题！！
问题附件.rar (12.52 KB, 下载次数: 16)

2018-10-2 15:54 上传

点击文件名下载附件

abc123281

既没有附件  要求也不明确  所以无法帮助

alstar

abc123281 发表于 2018-10-2 15:42
既没有附件  要求也不明确  所以无法帮助

大佬。附件已传。。谢谢。。

excelvlookup

arr=rng.adderss(0,0).CurrentRegion

alstar

excelvlookup 发表于 2018-10-2 16:12
arr=rng.adderss(0,0).CurrentRegion

大佬。。这么写循环到第二个rng=“真”的时候，会把上次写入数组的数据覆盖掉。。

duquancai

你 一口 就吃一碗饭 ，感觉如何？该用 循环 就大胆的用吧！

alstar

duquancai 发表于 2018-10-2 16:35
你 一口 就吃一碗饭 ，感觉如何？该用 循环 就大胆的用吧！

大佬。。arr = Union([a1].CurrentRegion, [a20].CurrentRegion)这样能一次性赋给一个数组吗？

cjc209

alstar 发表于 2018-10-2 16:38
大佬。。arr = Union([a1].CurrentRegion, [a20].CurrentRegion)这样能一次性赋给一个数组吗？

我试了 这样不行 这样数组中只有第一个区域的值

duquancai

alstar 发表于 2018-10-2 16:38
大佬。。arr = Union([a1].CurrentRegion, [a20].CurrentRegion)这样能一次性赋给一个数组吗？

1. Sub test()
   
2.     Dim brr(1 To 100, 1 To 3), arr
   
3.     For x = 1 To Cells(Rows.Count, 3).End(3).Row
   
4.         If Cells(x, 1).Value = "真" Then
   
5.             arr = Cells(x, 1).CurrentRegion
   
6.             r = UBound(arr)
   
7.             m = m + r: x = m + 1
   
8.             For i = 1 To r
   
9.                 n = n + 1
   
10.                 For j = 1 To 3
    
11.                     brr(n, j) = arr(i, j)
    
12.                 Next
    
13.             Next
    
14.         End If
    
15.     Next
    
16.     Range("g:i").Clear
    
17.     Range("g1").Resize(n, 3) = brr
    
18. End Sub

复制代码