標題: 請問同一列篩選相同名稱? [打印本頁]

---

作者: jeffshow    時間: 2012-3-1 11:17     標題: 請問同一列篩選相同名稱?

想請問各位高手

在同一列數值中，如何"有效快速"的知道是否有哪些數值重複?

例如:12534845610790

有什麼辦法可以知道這列數字中有兩個5跟0重複?

謝謝!!

---

作者: hugh0620    時間: 2012-3-1 11:38

回復 1# jeffshow


    樓主~ 我用了一個很笨的方式來處理~
    1. 先將數字拆分 (用資料剖析)
    2. 用countif 來統計每個數字有幾個字元
   
    [attach]9807[/attach]

---

作者: register313    時間: 2012-3-1 12:47

回復 1# jeffshow

設儲存格為A1

1. Sub AA()
   
2. Columns("IV") = ""
   
3. For I = 1 To Len([A1])
   
4.   Cells(I, "IV") = Mid([A1], I, 1)
   
5. Next I
   
6. For J = 0 To 9
   
7.   If (Application.CountIf(Columns("IV"), J)) > 1 Then
   
8.      X = X & J & " "
   
9.   End If
   
10. Next J
    
11. MsgBox X & "重覆"
    
12. End Sub

複製代碼

---

作者: Hsieh    時間: 2012-3-1 21:18

本帖最後由 Hsieh 於 2012-3-1 22:33 編輯

回復 1# jeffshow
依照你的範例，應該是1、5、4、0才對吧

1. Sub nn()
   
2. For i = 0 To 9
   
3. If Len([A1]) - Len(Replace([A1], i, "")) > 1 Then mystr = IIf(mystr = "", i, mystr & "," & i)
   
4. Next
   
5. MsgBox mystr
   
6. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)