excel - 循环遍历数字组合

标签 excel vba

我正在尝试一种方法来循环遍历多个组合,以确保我遍历每个可用的组合而不重复。让我解释。我有一组数字,例如

20,000
25,000
27,000
29,000

我想通过循环更改这组数字并将新数字复制到不同的工作表中,以便我在该工作表上的公式可以计算出我需要它们计算的任何内容。例如,前几次迭代可能看起来像这样:
1st
20,000 x 1.001
25,000 x 1
27,000 x 1
29,000 x 1

2nd
20,002 x 1.001
25,000 x 1.001
27,000 x 1
29,000 x 1

第一行数字不应超过第二行。所以 20,000 应该只达到 25,000。

我能够建立一个系统,在这个系统中我建立一个矩阵,然后使用 =rand() 循环遍历一组随机组合,但这并不能确保我击中每个组合并重复组合。

谁能解释这背后的数学原理以及我将如何使用循环来实现我的目标?

谢谢!

最佳答案

尝试从较小的数字开始。

看看这是否适合你。

Sub looper()


'First Array
Dim myArray(9) As Double

For i = 1 To 10

myArray(i - 1) = i

Next i


'Second Array
Dim myOtherArray(9) As Double

For i = 1 To 10

myOtherArray(i - 1) = i

Next i


'Loop through each one
For Each slot In myArray


For Each otherSlot In myOtherArray


Debug.Print (slot & " * " & otherSlot & " = " & slot * otherSlot)


Next otherSlot


Next slot


End Sub

关于excel - 循环遍历数字组合,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/22117661/

相关文章:

python - 使用 python 或 excel 查找每组连续值的长度

mysql - 从 MySQL 数据库插入数据透视表时运行宏

javascript - 通过javascript(activexobject)创建Excel单元格时如何自定义日期格式?

excel - 如何在数据之间的Excel中一次粘贴多次

excel - 如果两张表的值匹配,则添加新表

vba - 默认范围属性产生意外结果

excel - 尝试在自动筛选后选择 DataBodyRange 中的可见单元格时,“工作表类的选择方法失败”

vba - 将数组函数传递给用户定义的函数

excel - 列出加载项并禁用它们

vba - 当特定列的单元格更改时显示消息