返回列表 上一主題 發帖

請問同一列篩選相同名稱?

jeffshow

帖子
1 
主題
1 
精華
0 
積分
7 
點名
0  
作業系統
XP 
軟體版本
office2007 
閱讀權限
10 
性別
男 
註冊時間
2012-3-1 
最後登錄
2012-3-1 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-3-1 11:17 | 只看該作者

請問同一列篩選相同名稱?

想請問各位高手

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

例如:12534845610790

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

謝謝!!
收藏 分享

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
550 
主題
55 
精華
0 
積分
614 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-5-7 
2#
發表於 2012-3-1 11:38 | 只看該作者
回復 1# jeffshow


    樓主~ 我用了一個很笨的方式來處理~
    1. 先將數字拆分 (用資料剖析)
    2. 用countif 來統計每個數字有幾個字元
   
   
學習才能提升自己

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
3#
發表於 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
複製代碼

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 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
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -
返回列表 上一主題