VBA Excel处理范围与每个

Question

快速提问：

我设置了三个范围sourceRng1和sourceRng2 targetRng。一切都相等。

我想实现这个目标：

For each cell in targetRng
    cell.value = sourceRng1 / sourceRng2
next cell

其中sourceRng1和sourceRng2的索引在每次迭代中跳过一步。

因此，如果sourceRng1和sourceRng2的第一个和第二个值为4 7且1 3

然后在第一次迭代中cell.value = 4/1。第二个cell.value = 7/3。

有关如何进行此操作的任何建议吗？

Answer 1

Dim x as long
For x=1 to targetRng.cells.count
    targetRng.Cells(x).value = sourceRng1.cells(x).value / sourceRng2.Cells(x).value
next cell

Answer 2

还有非VBA解决方案：

1. 选择targetRng
2. 输入公式=sourceRng1 / sourceRng2
3. 按 Ctrl + Shift + 输入，将其作为Array formula
输入



您无法编辑 - 例如删除 - 单独的数组公式的一部分，仅当您选择整个区域=＆gt;确保使用不同的背景颜色或注释来区分targetRng与其他单元格。