VBA Excel的操作范围与每个

Question

快速的问题：

我设定了三个范围sourceRng1和sourceRng2targetRng。所有的大小相等。

我要实现这一点：

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

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

因此，如果的sourceRng1和sourceRng2所述第一和第二值是在第一次迭代和4 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键 + 移 + 输入进入此作为一个Array formula

坏处是，你不能编辑 - 例如删除 - 单独的数组部分，只有当你选择整个区域=>确保使用不同的背景颜色或注释来区分targetRng与其他单元格。