偉婕

　暱稱: 偉婕

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

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2010-8-20 01:22 | 只看該作者

[發問] 請教關於資料比對後之不重複的數量

我有數筆資料,每個儲存格中的資料若有多個字串是以分號區隔,我想要去判斷由分號區隔的字串是否相同
情況有以下:
1)若[國別]中僅有一個字串,則於[跨國]欄位中顯示0
2)若[國別]中有二個或二個以上字串,但由於分號區隔的字串比對後相同,則於[跨國]欄位中顯示0
3)若[國別]中有二個或二個以上字串,但由於分號區隔的字串比對後有不同者,則於[跨國]欄位中顯示不同的個數
除了透過資料剖析後,再搭配其他函數外,有沒有較快速的解決方法,謝謝!

國別　　　　　　　　　　　　　　　　　　　　　　　　　跨國
France　　　　　　　　　　　　　　　　　　　　　　　　　0
Japan; Japan　　　　　　　　　　　　　　　　　　　　　　0
USA; USA; USA　　　　　　　　　　　　　　　　　　　　　0
Japan; South Korea　　　　　　　　　　　　　　　　　　2
Singapore; Italy; USA; Italy　　　　　　　　　　　　　　3
Japan; Japan; Japan; Japan　　　　　　　　　　　　　　0
Japan; Japan; Japan　　　　　　　　　　　　　　　　　　0
South Korea; South Korea; South Korea 　　　　　　　0
Turkey; USA　　　　　　　　　　　　　　　　　　　　　　2

990920.rar (3.64 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

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-10-21

6^#

發表於 2023-5-10 10:46 | 只看該作者

謝謝論壇,謝謝各位前輩
後學藉此帖練習VBA陣列與字典,學習方案如下,請各位前輩指教

執行前:

執行結果:

Option Explicit
Sub TEST()
Dim Brr, Y, x, A, N%, i&
'↑宣告變數
Set Y = CreateObject("Scripting.Dictionary")
'↑令Y變數是字典
Brr = Range([B2], [A65536].End(3))
'↑令Brr變數是二維陣列,以儲存格值帶入
For i = 1 To UBound(Brr)
'↑設順迴圈
A = Split(Replace(Brr(i, 2), " ", "") & ";", ";")
'↑令A變數是一維陣列,以";"字元分割字串帶入
For Each x In A
'↑設逐項迴圈!x變數是A一維陣列裡的陣列子
   If x <> "" Then
   '↑如果x變數不是空字元?
      Y(x) = ""
      '↑令x變數是key,item是空字元,納入Y字典裡(濾重複)
      N = N + 1
      '↑令N變數累加1 (累加國數)
   End If
Next
Brr(i, 1) = N: N = 0
'↑令原陣列位置第1欄寫入N變數(國數),令N變數歸零(因為下個迴圈要用此變數)
Brr(i, 2) = IIf(Y.Count > 1, Y.Count, 0)
'↑令原陣列位置第2欄寫入跨國數
Y.RemoveAll
'↑令清空Y字典
Next
[D1:E1] = [{"國別數","跨國數"}]
'↑令儲存格寫入標題列
[D2].Resize(UBound(Brr), 2) = Brr
'↑令Brr陣列值從[D2]開始帶入儲存格
Set Y = Nothing: Erase Brr, A
'↑令釋放變數
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

leiru

高中生 Rank: 3 Rank: 3

帖子: 334
主題: 139
精華: 0
積分: 621
點名: 0
作業系統: WINDOWSXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 女
來自: 台北縣
註冊時間: 2010-8-5
最後登錄: 2022-11-3

5^#

發表於 2010-8-22 23:40 | 只看該作者

Hsieh版主回答的很好,謝謝說明.

joyce

TOP

偉婕

　暱稱: 偉婕

版主 Rank: 7 Rank: 7 Rank: 7

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

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

4^#

發表於 2010-8-21 01:32 | 只看該作者

謝謝oobird 與 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

超級版主 Rank: 8 Rank: 8

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

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