のVBA範囲ペアごとの部門

Question

私は、可変範囲のセットを持っていると3/1

の差がある場合、私は、各範囲と大胆なメンバーまたは2人の最高のメンバーのメンバーのそれぞれの対分裂をしたいですフェレットとキツネは太字ウサギにより大きい3/1の割合で実施例1

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

あるので、それら

例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行であれば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 

私はそれは、ネストされたループのいくつかの並べ替えになります理解が、私はどこの行数の機能を開始するのは非常によく分かりません。