vba - 在数组中添加行值 : VBA

Question

我正在 VBA 中构建遗传算法，我的适应度函数取决于数组行有多少个 1。该数组是 1 和 0 的组合。数组可以是任意大小(2D)，我需要添加行中 1 的数量并将其与其余值进行比较。我正在考虑找到 1 的最大值，并将其与数组中 1 的最小值进行比较，然后从那里继续前进，但我不确定这是否是执行此操作的最佳方法。

如果你们能给我一些关于如何做到这一点的提示，那就太好了!或者，如果我在 VBA 中缺少一些数组加法函数。

Answer 1

另一种方法是使用 Excel 的 SUM() 函数来完成这项工作。对数组求和将得到与计算数组相同的答案，并且您可以使用 Application.WorksheetFunction 对象来访问 SUM():

x = Application.WorksheetFunction.Sum(aArray)