将几个工作表的数据赋值给一个数组

直达车 · 发表于 2012-5-22 17:01

现在遇到一个令人头疼的事情，一个工作薄里含有三个有数据的工作表。
我想把这三个工作表合并赋值给一个二维数组arr

For Each sh In Sheets
arr = sh.Range("A1").CurrentRegion
Next

但发现用上面的方案不行，arr只含有最后一个工作表的数据。
请指导一下吧，谢谢

mjzxlmg · 发表于 2012-5-22 17:04

只能用循环的办法来赋值给一个数组

delete_007 · 发表于 2012-5-22 17:08

你可以先把三张表的数据分别装入三个数组，然后再在数组里面循环放进一个数组。这样的效率比直接在操作工作表要高得多。

直达车 · 发表于 2012-5-22 17:08

mjzxlmg 发表于 2012-5-22 17:04
只能用循环的办法来赋值给一个数组

期待方案。。。。。。。。。。

mjzxlmg · 发表于 2012-5-22 17:17

本帖最后由 mjzxlmg 于 2012-5-22 17:19 编辑

直达车发表于 2012-5-22 17:08
期待方案。。。。。。。。。。

把数组合并只能通过循环，没有其它办法。

方法：和多工作表汇总类似
1、在三个工作表中循环
2、数据区域装入一个数组arr
for k=1 to 3
sheets(k).[a1].currentregion.value
for i=1 to ubound(arr)
      m=m+1
      for j=1 to ubound(arr,2)
         brr(m,j)=arr(i,j)
      next
next
next

直达车 · 发表于 2012-5-22 19:05

mjzxlmg 发表于 2012-5-22 17:17
把数组合并只能通过循环，没有其它办法。

方法：和多工作表汇总类似

有劳！学习了。非常感谢

maditate · 发表于 2012-5-22 19:22

准备一张空白工作表，分别把N个数组紧挨着赋值给空白工作表，再将一个大区域赋值给一个数组，这行不知道是否可行，速度是否有影响。

小花鹿 · 发表于 2012-5-22 19:24

根本没有必要放在一个数组里，放在一个数组里还不是要进行下一步的处理？和分别处理有什么不同？

yejunfei211 · 发表于 2018-7-16 11:10

delete_007 发表于 2012-5-22 17:08
你可以先把三张表的数据分别装入三个数组，然后再在数组里面循环放进一个数组。这样的效率比直接在操作工作 ...

那如果不确定是几张数据表呢，比如有20个数据表的话那是不是要定义20个数组来存放呀，，如果后期又有新增的数据表呢又要增加数组吗

mjzxlmg · 发表于 2018-7-19 08:22

yejunfei211 发表于 2018-7-16 11:10
那如果不确定是几张数据表呢，比如有20个数据表的话那是不是要定义20个数组来存放呀，，如果后期又有新增 ...

先计算有几个数据表再定义就行了：
for each sht in sheets
if instr(sht.name,"A") then
m=m+1
end if
next
redim arr(1 to m)

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

[求助] 将几个工作表的数据赋值给一个数组