求助VBA大神帮忙，谢谢。

B1        B2        B3        B4        B5        B6        B7        B8        B9        B10        B11        B12        B13        B14        B15        B16        B17        B18        B19        B20

A1        2        3        11        13        18        22        25        26        32        35        41        47        61        62        65        68        70        72        74        78

A2        4        5        22        24        27        28        33        41        43        49        52        54        61        63        68        69        72        73        76        80

A3        3        6        7        15        30        35        36        37        42        46        47        51        55        59        61        62        70        71        73        79

A4        3        4        6        15        20        24        27        28        30        32        35        46        48        51        56        59        66        68        75        79

A5        1        6        12        14        16        19        24        26        28        33        36        42        47        51        57        58        59        65        70        78

                                                                                                                                                               

"A组数据两两对比（比如A1组跟其他所有A组两两对比，A2跟除了A1组之外所有组两两对比，A3跟除了A1,A2组之外所有组两两对比，以此类推），找出相同值，相同值个数结果显示在Sheet2，A列单元格显示相同值个数，B列单元格显示相同组个数,C列单元格显示相同值所在组，D列开始每个单元格显示一个相同值，有几个就显示几个，

"