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 

我认为这将是某种嵌套循环，但我不太确定从何处开始使用行数。