为什么我在将范围分配给变体数组时遇到问题

Question

我在使用一些非常简单的代码行时遇到了一些问题。让我详细说明事实，看看是否有其他人可以复制这种行为。如果有人可以复制，我想解释一下为什么会发生。

让我从一个非常简单的代码行开始：

Dim arr() As Variant
arr = Range("A1:A10")

这正如预期的那样，arr 被分配了 A1:A10 的值

现在为什么下面的代码行不起作用？

Dim arr() As Variant
arr = WorkSheets("Sheet1").Range("A1:A10")

我得到一个运行时错误“13”类型不匹配，即使相同的范围已成功分配给数组，只是没有工作表值。

但是

Dim arr As Variant
arr = Worksheets("Sheet1").Range("A1:A10")

还有

Dim arr() As Variant
arr = Application.Transpose(Application.Transpose(Worksheets("Sheet1").Range("A1:A10")))

有效

现在在你回答之前，请让我再给你一些事实。

Dim arr() As Variant
arr = Worksheets(1).Range("A1:A10")

不工作

并且使用Sheets 代替Worksheets 也会给出相同的错误。

我已通过在工作代码之后使用Range("A1:A10").Worksheet.Name 确保它与活动引用的工作表相同，并且它确实在输出中显示Sheet1。

没有打开其他工作簿，因此它也不能引用另一个工作簿。

现在这最后一点代码只会让我更加困惑，因为它完全有效！

Dim arr() As Variant
Dim SampleRange As Range

Set SampleRange = Worksheets("Sheet1").Range("A1:A10")
arr = SampleRange

因此，当我将其分配给范围变量时，现在可以在同一张工作表上使用相同的方式定义相同的范围。并使用它！正如预期的那样，无论我如何定义工作表，这都适用于WorkSheets 和Sheets 函数（我可以使用索引或工作表的名称并且一切正常）

如果它对任何人有帮助，我将在 Windows XP 机器上使用 Excel 2007 进行测试。我还没有在任何其他机器上测试过它，但我计划在 2003 年和 2010 年在 Windows 7 和 8 上进行测试，只是还没有机会。

更新： 不能 100% 确定这是否与数组的确切问题相同，但从肤浅的角度来看，它似乎是：

 Range("B1:B3") = Range("A1:A3") 

上面的代码不起作用，即使填充了A1：A3，日期，数值，字符串，公式任何东西，它都会将空格写入B1：B3

但是

Range("B1:B3").Value = Range("A1:A3").Value

还有

Range("B1") = Range("A1")

确实有效！

同样有效的是：

Range("B1:B3") = Application.Transpose(Application.Transpose(Range("A1:A3")))

Answer 1

不，这不是错误。

关键是 Value 是 Range 对象的默认属性，那为什么不隐式使用呢？你看过我链接的问题吗？ （来自CHAT）

之前发过答案的专家已经解释的很详细了。我会尽量减少解释，因此如果您还有任何问题，请告诉我。

让我们首先了解我们的对象。我创建了这个小表格，它清楚地显示了我们正在处理的内容，以免造成混淆。

您还可以添加Watch 以查看特定对象的Type，如下图所示。

所以当你说

arr = Range("A1:A10")

Excel 知道默认属性是.Value。但是在其他情况下，它不知道，因为 Excel 不是读心器，或者说它足够聪明，无法理解您是想使用 Worksheets("Sheet1").Range("A1:A10") 作为 Range 还是 Variant

一旦您将对象明确指定为Range，Excel 就会知道您想要什么。例如这行得通。

Dim arr() As Variant
Dim Rng As Range  
Set Rng = Worksheets("Sheet1").Range("A1:A10")
arr = Rng

Answer 2

让我澄清一下我的评论。
它不适合发表评论，我将其作为答案发布只是为了至少澄清我的观点。

Dim arr As Variant '~~> you declare arr as Variant as what Tim said

这是什么意思？
这意味着arr 可以采用任何形式（例如整数、字符串、数组、对象和所有其他Variable Type）

Dim arr() as Variant '~~> you declare arr() as array which may contain Varying `Data Type`

这是什么意思？
这意味着arr()数组变量可以存储不同的Data类型。
这不包括Objects 或Collection of Objects。

现在，为什么以下工作：

1. Dim arr() As Variant: arr = Range("A1:A10")
2. Dim arr() As Variant: arr = Sheet1.Range("A1:A10")
3. Dim arr() As Variant: arr = Sheets("Sheet1").Range("A1:A10").Value

这也有效：

4. Dim arr() as Variant
   Dim rng as Range

   Set rng = Sheets("Sheet1").Range("A1:A10")
   arr = rng

上述方法有效，因为您没有尝试将 Collections of Objects 分配到数组中。
相反，您正在分配一个特定的实体或值。
Range 是一个对象，但不是 Collection of Objects。
No.1 示例是直接的，无需访问Sheets Collection Object。

No.2 也是如此，因为您使用的是 Sheet1，它是 Sheet 对象，但不是 Collection of Sheet Objects。
No.3 是不言自明的，您将 .Value 分配给 arr 数组。
No.4 有效，因为rng 已经是Set 的Range 对象，这又不是Collection of Objects。

所以这个：

Dim arr() As Variant

arr = Sheets("Sheet1").Range("A1:A10")

不起作用，因为 Excel 会将其读取为尝试从 Sheets Collection of Objects 分配 Object 并因此发生错误。
我希望这有点道理。

Answer 3

我会说Something 的Array 与Something 不同，因为Something 可以是其他一些东西的Array。如果您将某物定义为数组，则分配给它的内容必须是数组，可以是数字、文本、范围、图表对象等的数组。

当事情出乎我们的意料时，我相信是内置的数据类型转换让我们大部分时间都变得轻松。这种转换可能必须是直接对象，而不是对象的属性。

例如，Rows 和 Cols 的类型是 Long，但您可以将 Byte/Double 类型扔给它：

Cells(1,1.5) 给出Cells(1,2) 的值

您不必将 1.5 转换为 Long； Excel 会在后台为您完成这一切。

当您定义一个数组并为其赋值时，Excel 会在后台进行类型匹配并尽可能设置值。

在立即窗口中检查这些：

?typename(Range("A1:A10").Value) 给你Variant() Dim arr() As Variant 上运行而没有任何问题

?typename(Range("A1:A10")) 给你Range。但是，当您将其分配给 arr（其中 Dim arr() As Variant）时，Excel 会使用该 Range 的值将 Range 转换为 Array。

但是，如果 Excel 无法直接访问该对象，则它似乎无法转换，除非您为它创建了内存。例如：

Dim arr() As Variant, oRng As Range
Set oRng = Range("A1:A10")
arr = oRng
Set oRng = Worksheets("Sheet1").Range("A1:A10")
arr = oRng

上面的代码没问题，但是它不能一次性转换和赋值arr = ThisWorkbook.Worksheets("Sheet1").Range("A1:A10")，除非你给它扔一个数组（ThisWorkbook.Worksheets("Sheet1").Range("A1:A10").Value是Variant()类型）。