アンケートの相性率を調べたいんです。

質問

エクセルを使用して以下の内容で相性率を求める事は出来るでしょうか？

(1)男女に同じ内容のアンケートを回答してもらう
（例）「恋人に誕生日のお祝いをしてもらうならどちらがいい？」という質問に２つの回答を用意します。
Ａ：自宅で二人きりのお祝い　Ｂ：仲間を呼んでもらい盛大なお祝い

(2)上記のような内容の質問を8個くらい回答してもらう（必ず回答の選択肢はＡorＢの2つにします）

(3)男女１０人ずつ計２０人が回答した場合に「女性▲▲さん」と異性である「男性10人の中から同じ回答が多かった人」との相性率を求めたいのです。

女性▲▲さん　問(1)：Ａ　問(2)：Ｂ　問(3)：Ａ　問(4)：Ａ　問(5)：Ｂ　問(6)：Ａ　問(7)：Ｂ　問(8)：Ｂ

男性●●さん　問(1)：Ａ　問(2)：Ｂ　問(3)：Ａ　問(4)：Ａ　問(5)：Ｂ　問(6)：Ａ　問(7)：Ａ　問(8)：Ａ　

上記は問(1)～問(6)までは二人とも同じ回答で問(7)と問８は回答が異なりました。
この場合は８個の問題中６個が一致していたので二人の相性率は75％になります。

もちろん他にも９人の男性がいるので、「女性▲▲さん」対「男性10人分」のデータを照合する必要があります。

もちろん２人目の女性「女性★★さん」と「男性10人分」のデータ照合も必要です。
女性３人目-男性10人
女性４人目-男性10人・・・・・と続いていきます。

男性と女性で総当り的に同じ回答である相性率を出す場合にエクセルで可能でしょうか？

※「男性対男性」「女性対女性」は不要です。

ちなみにアクセスは使用した事がないのでエクセルで可能な場合にご回答をお願い致します。

回答No.1

aquago

VBscriptを使えば割と簡単に出来るとおもいますよ。

最初の人のデータをA列に入れます
A1にMan/Womanをいれて
A2-A9に質問回答を入れます。

次の人はB列に同じように、その次はC列といれます。

VBScriptは次のような感じです

i=0,j=0,k=0
do while (cells(i,0)<>"")
j=0
se=cells(i,0)
do while (cells(j,0)<>"")
if cells (j,0)<>se then
count=0
for k=1 to 9
if cells(i,k)=cells(j,k) then
count++
endif
next
cells (i,j+10)=count/8*100
endif
j=j+1
loop
i=i+1
loop