12
返回列表 上一主題 發帖

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

偉婕
　暱稱: 偉婕

版主Rank: 7Rank: 7Rank: 7

帖子
376 
主題
84 
精華
0 
積分
419 
點名
0  
作業系統
Win 8 
軟體版本
Office 2007 
閱讀權限
100 
性別
女 
註冊時間
2010-4-30 
最後登錄
2022-6-2 

論壇貢獻勳章美女勳章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-6-28 22:26 | 只看該作者

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

本帖最後由 偉婕 於 2010-6-28 22:35 編輯

我有一堆資料,每筆資料中有數個單字,以分號區隔
我現在想要去統計,兩兩單字出現的次數,做成一個矩陣
例如:
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次...(不管單字之順序)
不知要怎麼處理較佳,煩有經驗的網友可以提供參考,謝謝!

990628.rar (4.76 KB)

收藏 分享
偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
254  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-23 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2010-6-28 23:12 | 只看該作者
回復 1# 偉婕


    是這樣的意思嗎? 990628.rar (12.71 KB)
學海無涯_不恥下問

TOP

偉婕
　暱稱: 偉婕

版主Rank: 7Rank: 7Rank: 7

帖子
376 
主題
84 
精華
0 
積分
419 
點名
0  
作業系統
Win 8 
軟體版本
Office 2007 
閱讀權限
100 
性別
女 
註冊時間
2010-4-30 
最後登錄
2022-6-2 

論壇貢獻勳章美女勳章熱烈參與勳章
3#
發表於 2010-6-29 00:11 | 只看該作者
回復 2# Hsieh

謝謝Hsieh版主
是我要的沒錯,不過請教一下,函數FIND($A2,x)中的x怎麼設定的,可否再說明,謝謝!
  1. SUMPRODUCT(ISNUMBER(FIND($A2,x))*ISNUMBER(FIND(B$1,x)))
複製代碼
偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
254  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-23 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2010-6-29 06:04 | 只看該作者
回復 3# 偉婕


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

TOP

偉婕
　暱稱: 偉婕

版主Rank: 7Rank: 7Rank: 7

帖子
376 
主題
84 
精華
0 
積分
419 
點名
0  
作業系統
Win 8 
軟體版本
Office 2007 
閱讀權限
100 
性別
女 
註冊時間
2010-4-30 
最後登錄
2022-6-2 

論壇貢獻勳章美女勳章熱烈參與勳章
5#
發表於 2010-10-5 22:22 | 只看該作者
再請教各位,在完成矩陣後,若僅想保留一半
1)保留含對角線之右上角資料
2)保留不含對角線上右上角資料
有較快速的刪除方法嗎?
謝謝
偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
254  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-23 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
6#
發表於 2010-10-6 00:07 | 只看該作者
  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
複製代碼
學海無涯_不恥下問

TOP

偉婕
　暱稱: 偉婕

版主Rank: 7Rank: 7Rank: 7

帖子
376 
主題
84 
精華
0 
積分
419 
點名
0  
作業系統
Win 8 
軟體版本
Office 2007 
閱讀權限
100 
性別
女 
註冊時間
2010-4-30 
最後登錄
2022-6-2 

論壇貢獻勳章美女勳章熱烈參與勳章
7#
發表於 2010-10-6 02:59 | 只看該作者
回復 6# Hsieh

謝謝［Hsieh］版主
偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

TOP

偉婕
　暱稱: 偉婕

版主Rank: 7Rank: 7Rank: 7

帖子
376 
主題
84 
精華
0 
積分
419 
點名
0  
作業系統
Win 8 
軟體版本
Office 2007 
閱讀權限
100 
性別
女 
註冊時間
2010-4-30 
最後登錄
2022-6-2 

論壇貢獻勳章美女勳章熱烈參與勳章
8#
發表於 2010-10-8 20:34 | 只看該作者
再請教[Hsieh]版主
若只要選取"對角線"本身
要如何修改?
謝謝!
偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
254  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-23 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
9#
發表於 2010-10-8 21:12 | 只看該作者
回復 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
複製代碼
學海無涯_不恥下問

TOP

偉婕
　暱稱: 偉婕

版主Rank: 7Rank: 7Rank: 7

帖子
376 
主題
84 
精華
0 
積分
419 
點名
0  
作業系統
Win 8 
軟體版本
Office 2007 
閱讀權限
100 
性別
女 
註冊時間
2010-4-30 
最後登錄
2022-6-2 

論壇貢獻勳章美女勳章熱烈參與勳章
10#
發表於 2010-10-9 04:46 | 只看該作者
回復 9# Hsieh

再次謝謝［Hsieh］版主
偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

TOP

        靜思自在 : 盡多少本份，就得多少本事。
12
返回列表 上一主題