excel vba如何将多个不连续范围的值复制到数组中

Question

我正在尝试将多个不连续范围的值复制到数组中。我写了这样的代码:

summaryTempArray = .range("A2:D9,A11:D12,A14:D15").Value

但它只复制第一部分(A2:D9)。然后，我尝试了以下操作，但收到错误 - “Object _Global 的方法联合失败” - 我使用联合的方式是否有任何错误？

summaryTempArray = Union(.range("A2:D9"), .range("A11:D12"), .range("A14:D15")).Value

Answer 1

不知道您的联合出了什么问题，但它会创建与您在第一次尝试中所述相同的范围。

问题是，您现在有多个区域。据我所知，您现在可以解决这个问题。

这是一个示例，它将解析为所有区域的数组，而不单独添加每个单元格，而是将每个区域单独添加到摘要数组中:

Public Sub demo()
  Dim summaryTempArray() As Variant
  Dim i As Long

  With Tabelle1
    ReDim summaryTempArray(1 To .Range("A2:D9,A11:D12,A14:D15").Areas.Count)

    For i = 1 To .Range("A2:D9,A11:D12,A14:D15").Areas.Count
      summaryTempArray(i) = .Range("A2:D9,A11:D12,A14:D15").Areas(i)
    Next i
  End With

End Sub

希望这有帮助。