关于VBA中的目标搜索或fsolve（matlab）相似函数

我已经努力了一段时间，试图在VBA中实现一个目标搜索函数，但没有结果，这就是为什么我要求助于你们

我有一个double value的变体，其中最后一个元素只是一个临时的集合值，必须对其进行更改（如goalseek），以便整个数组的和等于1。当然，这正是您在工作表中要做的，但我需要它在VBA中，不处理任何单元格

有没有一种方法可以在VBA中调用Goalseek函数而不必使用工作表（或单元格），而只使用变量

谢谢，

---

Niklas

如果只是关于填充最后一个数组项，那么此代码可能会派上用场：

Sub FillLastElementWithDifferenceToOne()
    Dim arr As Variant
    Dim i As Integer, sum As Double

    ReDim arr(1 To 10)

    'Fill Array with .01 - .09
    For i = LBound(arr) To UBound(arr)
        arr(i) = i / 100
    Next i

    'Calculate sum = .45
    For i = LBound(arr) To UBound(arr) - 1
        sum = sum + arr(i)
    Next i

    'Set last item of array
    arr(UBound(arr)) = 1 - sum

    'Clean up
    Set arr = Nothing
End Sub

---

否则，请详细说明您希望用VBA实现什么以及问题在哪里，并在出现问题的地方张贴代码。

目前这个问题不属于stackoverflow的范围。请查看并编辑您的问题，然后再将其搁置。希望这能澄清一些问题。。。