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

偉婕

我有上千筆資料,在資料中有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

偉婕

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

oobird

稍改一下妳的函數即可。
991008.rar (9.59 KB)

下載次數: 14

2010-10-8 09:19

oobird

991008-1
991008-1.rar (11.44 KB)

下載次數: 10

2010-10-8 10:00

偉婕

回復 5# oobird

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

oobird

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

偉婕

回復 7# oobird

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

oobird

991008-2.rar (14.27 KB)

下載次數: 7

2010-10-8 19:33

是字串太長了，改成一列列輸出。

偉婕

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

oobird

呵呵，我眼睛看得快脫窗了，還是不知道那個錯誤。我把妳質疑的地方用紅字標起來，妳再看看那個錯誤標給我參考！ 991008-2-1.rar (17.24 KB)

下載次數: 14

2010-10-8 22:19