[發問] 請教關於同時出現次數之統計

偉婕

我有一堆資料,每筆資料中有數個單字,以分號區隔
我現在想要去統計,兩兩單字出現的次數,做成一個矩陣
例如:
NO        單字
1        Welding; Abb; Robots;
2        Robots; Cutting Waterjet; Automotive Industry;
3        Robots; Control;Manipulators
4        Robots; Control; Aerospace;
5        Robots; Control; Actuators;
6        Robots; Control;
則 Abb與Robots、Welding與Abb、Welding與Robots...等各1次;而Robots與Control有4次...(不管單字之順序)
不知要怎麼處理較佳,煩有經驗的網友可以提供參考,謝謝!

Hsieh

回復 1# 偉婕


    是這樣的意思嗎? 990628.rar (12.71 KB)

下載次數: 35

2010-6-28 23:12

偉婕

回復 2# Hsieh

謝謝Hsieh版主
是我要的沒錯,不過請教一下,函數FIND($A2,x)中的x怎麼設定的,可否再說明,謝謝!

1. SUMPRODUCT(ISNUMBER(FIND($A2,x))*ISNUMBER(FIND(B$1,x)))

複製代碼

Hsieh

回復 3# 偉婕


    x是動態範圍定義名稱
因為字串資料是不斷增加
定義公式
=OFFSET(單字!$B$2,,,COUNTA(單字!$B:$B)-1,)
以B2為基準點,向下擴充B欄資料數量的列數作為範圍
因為有標題列所以COUNTA(單字!$B:$B)-1

偉婕

再請教各位,在完成矩陣後,若僅想保留一半
1)保留含對角線之右上角資料
2)保留不含對角線上右上角資料
有較快速的刪除方法嗎?
謝謝

Hsieh

1. Sub 不含對角線()
   
2. Dim Rng As Range
   
3. r = [A65536].End(xlUp).Row
   
4. For i = 2 To r
   
5.     For j = i + 1 To r
   
6.        If Rng Is Nothing Then
   
7.        Set Rng = Cells(i, j)
   
8.        Else
   
9.        Set Rng = Union(Rng, Cells(i, j))
   
10.        End If
    
11.     Next
    
12. Next
    
13. Rng.Select
    
14.      
    
15. End Sub
    
16. Sub 含對角線()
    
17. Dim Rng As Range
    
18. r = [A65536].End(xlUp).Row
    
19. For i = 2 To r
    
20.     For j = i To r
    
21.        If Rng Is Nothing Then
    
22.        Set Rng = Cells(i, j)
    
23.        Else
    
24.        Set Rng = Union(Rng, Cells(i, j))
    
25.        End If
    
26.     Next
    
27. Next
    
28. Rng.Select
    
29.      
    
30. End Sub

複製代碼

偉婕

回復 6# Hsieh

謝謝［Hsieh］版主

偉婕

再請教[Hsieh]版主
若只要選取"對角線"本身
要如何修改?
謝謝!

Hsieh

回復 8# 偉婕

1. Sub 對角線()
   
2. Dim Rng As Range
   
3. r = [A65536].End(xlUp).Row
   
4. For i = 2 To r
   
5.        If Rng Is Nothing Then
   
6.        Set Rng = Cells(i, i)
   
7.        Else
   
8.        Set Rng = Union(Rng, Cells(i, i))
   
9.        End If
   
10. Next
    
11. Rng.Select
    
12.      
    
13. End Sub

複製代碼

偉婕

回復 9# Hsieh

再次謝謝［Hsieh］版主