[發問] EXCEL兩筆資料的比對與轉置

cosplay123

如果我有兩筆資料 :"引用" 跟 "被引用"

我要對比兩筆的資料 用轉置矩陣的形式表示

兩個有關的就顯示"1"  無關顯示"0"

EX:
                                86 S.Ct. 684        138 F.3d 1448        106 S.Ct. 2505        52 F.3d 967        116 S.Ct. 1384        70 S.Ct. 854        90 F.3d 1576        117 S.Ct. 1040        71 S.Ct. 127        775 F.2d 1107
1 F.3d 1253(1)                     0                                      0                                  0                          0                                       0                              0                             0                                      0                              0                              1
1 F.3d 1253(2)                0                              0                                  0                          0                                       0                              0                             0                              0                               0                               1


因為我之前都用手動慢慢KEY  不過資料有時候超過一萬筆我就暈了QQ

拜託各位大大幫幫我><

hugh0620

樓主~ 你舉例的例子有些不清楚~
1 F.3d 1253(1)
1 F.3d 1253(2)
是有相關的~
但~ 沒有說明~
如果有相關要將相關的
1. 放在哪一個欄位 (沒有提供一個key~ 怎麼放呢?? 還是全部放在同一個欄位內)
2. 怎麼表示相關的 (就顯示1嘛??)

hugh0620

回復 1# cosplay123


    提供一個笨的方式
    希望你看的懂~
   

下載 (73.04 KB)

2012-3-12 12:08

cosplay123

EX:

引用     被引用                                     e       f       a        g  
a                e                                   a      1      0      0        0
b                f                                    b     0      1      0        0
c                a                                    c     0      0      1        0
d               e                                    d     1      0      0        0

不知道這樣大大看得懂嗎><

cosplay123

EX:

引用     被引用                                     e       f       a        g  
a                e                                   a      1      0      0        0
b                f                                    b     0      1      0        0
c                a                                    c     0      0      1        0
d               e                                    d     1      0      0        0

不知道這樣大大看得懂嗎><

Hsieh

回復 5# cosplay123

重點是資料的關聯如何判斷?
請上傳簡單範例說明

XDshining

　A欄位　 Ｂ欄位
　引用　　被引用　　　｜　　　　　ｚ　ｙ　ｘ　ｗ
１　ａ　　　ｚ　　　　｜　　　ａ　１　０　１　０
２　ｂ　　　ｚ　　　　｜　　　ｂ　１　０　０　１
３　ｃ　　　ｙ　　　　｜　　　ｃ　０　１　０　０
４　ｄ　　　ｙ　　　　｜　　　ｄ　０　１　０　０
５　ａ　　　ｘ　　　　｜　　　ｆ　０　０　１　０
６　ｆ　　　ｘ　　　　｜　　　ｘ　０　０　０　１
７　ｘ　　　ｗ　　　　｜　　　　　　　　　　
８　ｂ　　　ｗ　　　　｜

原始資料的Ａ欄位與Ｂ欄位下的資料本身就有關係，因為是從資料庫裡調出來的資料。
因此不需判斷之間的關係，二者之間的關係即為：A引用B；B被A引用。
想將原始的AB欄位關係轉換成矩陣的型態。

不知道這個例子夠不夠清楚？:-)

register313

回復 5# cosplay123
回復 7# XDshining

E2=SUMPRODUCT(($A$2:$A$9=$D2)*($B$2:$B$9=E$1))

下載 (69.58 KB)

2012-3-12 23:34

Hsieh

回復 7# XDshining
D2陣列公式
=IF(ROW(A1)>SUM(1/COUNTIF($A$2:$A$9,$A$2:$A$9)),"",INDEX($A:$A,MIN(IF(ISERROR(MATCH($A$2:$A$9,$D$1:D1,0)),ROW($A$2:$A$9),"")),))
向下複製
E1陣列公式
=IF(COLUMN(A$1)>SUM(1/COUNTIF($B$2:$B$9,$B$2:$B$9)),"",INDEX($B:$B,MIN(IF(ISERROR(MATCH($B$2:$B$9,$D$1:D$1,0)),ROW($B$2:$B$9),""))))
向右複製
E2=(SUMPRODUCT(($A$2:$A$9&$B$2:$B$9=$D2&E$1)*1)>0)*1
向右向下複製

下載 (11.21 KB)

2012-3-12 23:39

VBA

1. Sub ex()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. Set d1 = CreateObject("Scripting.Dictionary")
   
4. Set d3 = CreateObject("Scripting.Dictionary")
   
5. 
   
6. For Each a In Range([A2], [A65536].End(3))
   
7. d(a & a.Offset(, 1)) = a & a.Offset(, 1)
   
8. d1(a & "") = ""
   
9. d3(a.Offset(, 1) & "") = ""
   
10. Next
    
11. [d2].Resize(d1.Count, 1).Value = Application.Transpose(d1.keys)
    
12. [E1].Resize(, d3.Count) = d3.keys
    
13. For i = 2 To d1.Count + 1
    
14.   For j = 5 To d3.Count + 4
    
15.     Cells(i, j) = d.exists(Cells(i, 4) & Cells(1, j)) * (-1)
    
16.   Next
    
17. Next
    
18. End Sub

複製代碼

XDshining

回復 8# register313


   

下載 (79 KB)

2012-3-13 01:49

　用公式整理的矩陣
　

下載 (100.01 KB)

2012-3-13 01:49

　以前用手動整理的矩陣

可以發現公式整理的矩陣會有重複的現象，
不知道有沒有小工具可以在整理矩陣的同時將重複的資料去除掉？