2013-07-24 67 views
2

快速的問題:VBA Excel的操作範圍與每個

我設定了三個範圍sourceRng1sourceRng2targetRng。所有的大小相等。

我要實現這一點:

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

其中sourceRng1sourceRng2索引跳躍在每個迭代一步。

因此,如果的sourceRng1sourceRng2所述第一和第二值是在第一次迭代和4 71 3

然後cell.value = 4/1。第二個是cell.value = 7/3

有關如何進行此操作的任何建議?

+0

似乎你知道如何去做。 – matzone

回答

2
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 
+0

+1 - 短而甜。做得很好。 –

1

有一個非VBA溶液,以及:

  1. 選擇targetRng
  2. 型式=sourceRng1/sourceRng2
  3. Ctrl鍵 + + 輸入進入此作爲一個Array formula

enter image description here

壞處是,你不能編輯 - 例如刪除 - 單獨的數組部分,只有當你選擇整個區域=>確保使用不同的背景顏色或註釋來區分targetRng與其他單元格。