偉婕

　暱稱: 偉婕

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

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-10-8 01:11 | 只看該作者

[發問] 請教關於截取儲存格中的唯一值

本帖最後由偉婕於 2010-10-8 02:11 編輯

我有上千筆資料,在資料中有A[關鍵字]及B[關鍵字出現年代]二欄
B欄中的每一個儲存格,由多個年代組成,每個年代中間以頓號隔開
現在想要於D欄中將B欄中每個儲存格中的唯一年代顯示出來
不知有沒有較有效率的方法,謝謝!

例如
關鍵字關鍵字出現年代
Slam 2004、2004、2003、2002
Object 1997、2002、1997、1996、1995

結果
關鍵字關鍵字出現年代(唯一)
Slam 2004、2003、2002
Object 2002、1997、1996、1995

991008.zip (9.49 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

偉婕

　暱稱: 偉婕

版主 Rank: 7 Rank: 7 Rank: 7

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

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

2^#

發表於 2010-10-8 03:01 | 只看該作者

另外再問
若已經整理出B欄的資料
請問有沒有較有效率的方法
將A:B欄的資料整理成D:E欄的資料
謝謝!

991008-1.zip (4.17 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

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

3^#

發表於 2010-10-8 09:19 | 只看該作者

稍改一下妳的函數即可。

991008.rar (9.59 KB)

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

4^#

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

991008-1

991008-1.rar (11.44 KB)

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-8 12:29 | 只看該作者

本帖最後由偉婕於 2010-10-8 14:03 編輯

回復 5# oobird

謝謝[oobird]版主
不過 [ 991008-1] 若其中有一個關鍵字,只出現在一個年代
則會使得它不是"字串",會使程式出錯,不知怎麼解決
謝謝!

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

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

6^#

發表於 2010-10-8 14:43 | 只看該作者

Private Sub CommandButton1_Click()
Dim d As Object, arr, i%, j%, s$, s1$, sp
Set d = CreateObject("Scripting.Dictionary")
arr = Sheet1.Range([a2], [b2].End(4))
For i = 1 To UBound(arr)
      s = arr(i, 2): s1 = arr(i, 1)
      If InStr(s, "、") = 0 And Not d.exists(s) Then d.Add s, s1
      sp = Split(s, "、")
      For j = 0 To UBound(sp)
         If Not d.exists(sp(j)) Then
            d.Add sp(j), s1
         Else
            d(sp(j)) = IIf(InStr(d(sp(j)), s1) = 0, d(sp(j)) & "、" & s1, d(sp(j)))
         End If
      Next j
Next i
[d2].Resize(d.Count, 1) = Application.Transpose(d.keys)
[e2].Resize(d.Count, 1) = Application.Transpose(d.items)
Set d = Nothing
End Sub

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-8 16:21 | 只看該作者

回復 7# oobird

謝謝[oobird]版主
上個問題解決了,可是現在不知是不是單字長度問題
執行時會出現～～執行階段錯誤"13"　　型態不符合

991008-2.zip (14.14 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

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

8^#

發表於 2010-10-8 19:33 | 只看該作者

991008-2.rar (14.27 KB) 是字串太長了，改成一列列輸出。

TOP

偉婕

　暱稱: 偉婕

版主 Rank: 7 Rank: 7 Rank: 7

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

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

9^#

發表於 2010-10-8 20:31 | 只看該作者

回復 9# oobird
謝謝[oobird]版主
我用公式比對了一下結果發現有些出入
關鍵字[Robot],在2002、2001、2000、1995皆出現
但執行後,卻只有出現在2002、2001、2000
我看了一下發現未出現在這些年中,皆有[Mobile Robot]
不過奇怪的是[Robotics],在2002、1997、2004、1999、1995皆出現
但執行後,卻都有出現,而除了1995外,皆有[Distributed Robotics]
不知什麼原因,謝謝!

991008-2-1.zip (18.49 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

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

10^#

發表於 2010-10-8 22:19 | 只看該作者

呵呵，我眼睛看得快脫窗了，還是不知道那個錯誤。我把妳質疑的地方用紅字標起來，妳再看看那個錯誤標給我參考！

991008-2-1.rar (17.24 KB)

TOP