偉婕

　暱稱: 偉婕

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

論壇貢獻勳章美女勳章熱烈參與勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-10-1 05:00 | 只看該作者

[發問] 請教國別筆數之計算

本帖最後由偉婕於 2010-10-1 05:01 編輯

我有上千筆資料,每一列算一筆資料
在A欄[國別]儲存格中,由一個或數個字串組成,中間以分號隔開
每個儲存格中之國家,不管出現的位置,或者是否重複,只要有出現僅計數1次

例如
國別
Wales
USA; USA; USA; USA; USA
USA; USA; Taiwan; USA
USA; USA; Italy; USA; USA
USA; Spain
USA; South Korea
Switzerland; Switzerland; Belgium; Italy; Belgium; Italy

則
國家　　　　　　　　　筆數
Wales　　　　　　　　1
USA　　　　　　　　　5
Taiwan　　　　　　　1
Italy　　　　　　　　  2
Spain　　　　　　　　1
South Korea　　　　 1
Switzerland　　　　  1
Belgium　　　　　  　1

目前問題是解決了,不過覺得自己的方法不是很有效率,所以,想請教各位有沒有什麼較有效率的技巧,謝謝!

991001.zip (11.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

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2010-10-1 08:07 | 只看該作者

本帖最後由 Hsieh 於 2010-10-1 08:08 編輯

E2=SUMPRODUCT(ISNUMBER(FIND($D2,OFFSET($A$1,,,COUNTA($A:$A),)))*1)

學海無涯_不恥下問

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

3^#

發表於 2010-10-1 21:34 | 只看該作者

相當強的公式！
不知道上千筆時速度如何？

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2010-10-1 21:38 | 只看該作者

回復 3# oobird

應該很慘

學海無涯_不恥下問

TOP

偉婕

　暱稱: 偉婕

版主 Rank: 7 Rank: 7 Rank: 7

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

論壇貢獻勳章美女勳章熱烈參與勳章

5^#

發表於 2010-10-2 00:18 | 只看該作者

本帖最後由偉婕於 2010-10-2 00:21 編輯

謝謝[Hsieh]版主
我處理七千多筆的資料,不到幾秒鐘就OK了
真的高效率!!

現在有多一種方法可以讓我做為確認之用,謝謝!

偉婕電子書,歡迎免費下載參考
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

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2010-10-2 00:27 | 只看該作者

回復 5# 偉婕

能有這麼好的速度嗎?
這應該是只判斷FIND字串是否存在
所以每個國名只需做7千多次判斷
可見內建陣列函數運算應該藏著比VBA更低階的語言

學海無涯_不恥下問

TOP

偉婕

　暱稱: 偉婕

版主 Rank: 7 Rank: 7 Rank: 7

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

論壇貢獻勳章美女勳章熱烈參與勳章

7^#

發表於 2010-10-2 01:41 | 只看該作者

此公式會將[Serbia Monteneg]算在[Serbia]內且[North Ireland]算在[Ireland]內,同時[Serbia Monteneg]與[North Ireland]亦會再自己計數一次,變成會有重複計數的問題
不知要如何解決?謝謝!

例如
North Ireland; North Ireland
Ireland; Ireland
Ireland
Germany; Ireland
Canada; North Ireland; Peoples R China

結果
Ireland 5
North Ireland 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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2010-10-2 07:50 | 只看該作者

回復 7# 偉婕
Function Word_Count(Word As String, WordRange As Range) As Integer
Dim i As Integer, E As Range, A
For Each E In WordRange
      For Each A In Split(E, ";")
         If Trim(A) = Trim(Word) Then i = i + 1: Exit For
      Next
Next
Word_Count = i
End Function

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

9^#

發表於 2010-10-2 09:18 | 只看該作者

=SUMPRODUCT(ISNUMBER(FIND($D2,OFFSET($A$1,,,COUNTA($A:$A),)))*1)-(SUMPRODUCT(ISNUMBER(FIND($D2,OFFSET($D$1,,,COUNTA($D:$D),)))*1)-1)

學海無涯_不恥下問

TOP

偉婕

　暱稱: 偉婕

版主 Rank: 7 Rank: 7 Rank: 7

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

論壇貢獻勳章美女勳章熱烈參與勳章

10^#

發表於 2010-10-2 14:18 | 只看該作者

回復 8# GBKEE

謝謝[GBKEE]版主,解決了[Serbia]重複計數[Serbia Monteneg]與[Ireland]重複計數[North Ireland]的問題

回復 9# Hsieh

[Hsieh]版主再提供的公式與我計算出來的結果有些出入
而且不明白[Hsieh]版主公式中的 (SUMPRODUCT(ISNUMBER(FIND($D2,OFFSET($D$1,,,COUNTA($D

D),)))*1)-1) 為何要減1
謝謝!

991002-1.zip (14.87 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

TOP