数组加法/减法 vba

Question

好吧，我觉得我在这里遗漏了一些重要的东西；但是我试图在 VBA 上减去数组。我需要减去数组并将它们分配给另一个变量x，所以我不能做一个规范化函数。以下是我的代码版本：

代码：

Dim xnew As Variant, xTable As Variant, x As Variant

xnew = [{1,2}]
xTable = [{4,3}]

x = xTable - xnew

MsgBox (x)

我发誓这是一个愚蠢的问题，我已经在互联网上四处寻找这个简单的操作，但到我的死，什么都没有出现......我认为这个问题与 MINUS operation on Array elements 不同，因为这里问的人是试图改变数组的大小，我没有。

Answer 1

你也可以使用字符串和Application.Evaluate来避免循环：

Dim xnew As String, xTable As String, x As Variant

xnew = "{1,2}"
xTable = "{4,3}"

x = Application.Evaluate("INDEX(" & xTable & " - " & xnew & ",)")

For i = LBound(x) To UBound(x)
    Debug.Print "x(" & i & ") = " & x(i)
Next

Answer 2

我认为您正在尝试将它们作为矩阵减去。 VBA 不是那么聪明。您需要遍历数组并自己进行减法。

Dim xnew As Variant, xTable As Variant, x(1 To 2) As Variant, i As Integer

xnew = [{1,2}]
xTable = [{4,3}]

For i = LBound(xTable) To UBound(xTable)
    x(i) = xTable(i) - xnew(i)
Next

For i = LBound(x) To UBound(x)
    Debug.Print "x(" & i & ") = " & x(i)
Next

输出

x(1) = 3
x(2) = 1

注意：如果您不知道xTable 的大小，那么您可以通过ReDim x(LBound(xTable) To UBound(xTable) 在x 上设置正确的尺寸