VBA的範圍成對分割

Question

我有一組可變範圍的和我想要做的每個的每個範圍而大膽的構件或兩個最高構件的構件的成對的分割是否存在的3/1

的差實施例1

Column A. Ferrets. Rabbits. Foxes.    
Column B. 3000 1000 4000 

由於雪貂和狐狸是在大於3/1比例兔粗體他們

實施例2

Column A. Ferrets. Rabbits. Foxes.    
Column B 1000 1000 4000 

因爲狐狸是大於3/1的比例，以雪貂和兔子大膽他們

例3

Column A. Ferrets. Rabbits. Foxes.    
Column B. 3000 3500 4000 

大膽沒什麼

我可以得到邏輯大膽，但即時通訊不是很確定從哪裏開始獲得卓越，循環所有可能的部門。請注意，範圍會隨着行數而變化。有時高達5和6或更多，這就是爲什麼我有問題。

Answer 1

我只有一個DO循環計數範圍內的細胞數量。這給出了該範圍中包含的列數。然後，我不知道該怎麼做，然後把所有配對部門可能出現的任何部門的兩倍存儲起來。所以，如果它是2行會有兩個答案，3行會有6,4和將有12 ...我認爲的功能將是N（N-1）現在，我想它。

Option Explicit 

Sub Bold() 

Dim i, j As Integer 
i = 2 'Row 
j = 3 'Column 


Do 
    If Cells(i,j).Value <>"" Then 
     i = i + 1 
    End If 

Loop Until Cells(i, j).Value = "" 
i = i - 1 

我認爲這將是某種嵌套循環，但我不太確定從何處開始使用行數。