如何无需激活工作表/循环，用VBA从非活动工作表填充数组？

嘿，我来帮你搞定这个VBA数组加载的问题！其实你离正确解法只差一步，根本不用 resort 到低效的循环，也完全不是VBA的局限。

直接能用的解决方案 #

这里有两种简洁的写法，都不用激活工作表，也没有循环：

写法1：明确指定所有单元格的父工作表

Dim claimsArray As Variant
Dim a As Integer, b As Integer
' 先给a和b赋值成你要的行数和列数哈
claimsArray = Sheets("claims").Range(Sheets("claims").Cells(1, 1), Sheets("claims").Cells(a, b)).Value

写法2：用Resize简化代码（更推荐！）

这种写法更清爽，只需要指定一次父工作表：

Dim claimsArray As Variant
Dim a As Integer, b As Integer
claimsArray = Sheets("claims").Cells(1, 1).Resize(a, b).Value

你之前代码报错的根源 #

你之前写的claimsArray = sheets("claims").Range(Cells(1, 1), Cells(a, b)).Value犯了一个VBA新手常踩的坑：

• Range的父对象是Sheets("claims")，但里面的Cells(1,1)和Cells(a,b)没指定父对象，VBA会默认把它们绑定到当前活动的工作表。
• 这就相当于你在要求Sheets("claims")里取一个“以活动表的A1到第a行第b列”为范围的区域，这明显是跨表的无效引用，不报错才怪！

而你激活工作表后能运行，是因为此时Cells的父对象自动变成了Sheets("claims")，Range和Cells的父级一致了，引用就合法了。

这真不是VBA的锅！ #

这完全不是VBA的局限，而是它的默认行为规则——当你没明确指定对象的父级时，它会用当前活动的对象（这里就是活动工作表）。只要你养成给每个对象明确指定父级的习惯，这类问题就再也不会困扰你了。

为啥别用循环？ #

你那个嵌套循环的写法虽然能跑，但效率差得远：

• VBA和Excel单元格之间的交互特别耗时，批量加载整个范围到数组只需要一次交互，而循环要做a*b次，数据量越大，速度差距越夸张。
• 而且批量加载的代码更简洁，维护起来也省心。

内容的提问来源于stack exchange，提问作者JFerro