返回列表 上一主題 發帖

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

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

本帖最後由 偉婕 於 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

另外再問
若已經整理出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

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

TOP

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

TOP

本帖最後由 偉婕 於 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

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

回復 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

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

TOP

回復 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

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

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候,卻被這種隨心所欲的自由蒙蔽,虛擲時光而毫無覺知。
返回列表 上一主題