每个VBA Excel处理范围

快速提问：

我设置了三个范围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 。

有关如何做这个操作的任何build议？

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解决scheme：

1. selecttargetRng
2. 键入公式=sourceRng1 / sourceRng2
3. 按Ctrl + Shift + Enter将其作为数组公式input

不利的一面是你不能编辑 – 例如删除 – 单独的数组公式部分，只有当你select整个区域=>确保使用不同的背景颜色或注释来区分targetRng和其他单元格。