excel - VBA Excel 处理范围与每个

Question

快速提问：

我设置了三个范围sourceRng1和sourceRng2 targetRng. 大小都一样。

我想实现这一点：

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

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

所以如果and的第一个和第二个值是sourceRng1andsourceRng24 71 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 + Enter将其作为数组公式输入

缺点是您不能单独编辑 - 例如删除 - 数组公式的一部分，只有当您选择整个区域 => 确保使用不同的背景颜色或注释以区别于targetRng其他单元格时。