Board logo

標題: [發問] 同一儲存格內有重複的內容如何整理 [打印本頁]

作者: dk457587    時間: 2016-1-9 15:43     標題: 同一儲存格內有重複的內容如何整理

[attach]23069[/attach]

請問要把B欄的資料整理成C欄
只要有重複的名字都視為一個
如果有兩人以上就串接起來

請問這種問題要怎麼寫函式或vba?
作者: stillfish00    時間: 2016-1-11 16:57

回復 1# dk457587
B欄是從哪來的。。。
最好是建立B欄時,單詞和單詞間用空白區隔
否則 名字內部分字可能和另一個名字重複根本分不清楚(Tomas , Tom) (John, Johnson)
也會造成誤刪。
作者: dk457587    時間: 2016-1-13 11:30

回復 2# stillfish00

您好
B欄是目標要達成的樣子
目前是手打進去的

A欄有這個狀況也是因為資料來源的關係...

非常謝謝您!
作者: 准提部林    時間: 2016-1-13 14:03

看起來只有〔首字英文大寫〕有規則,但非全部,仍不可靠!

有問題,最好附上檔案,看圖做不了事!!!
作者: ML089    時間: 2016-1-13 14:24

上傳範例檔案大家好測試
作者: stillfish00    時間: 2016-1-13 17:30

回復 3# dk457587
否則 名字內部分字可能和另一個名字重複根本分不清楚(Tomas , Tom) (John, Johnson)
也會造成誤刪。


假如不考慮上面說的,可以試試:
一般模組新增自訂函數
  1. Function RemSameName(s As String)
  2.     With CreateObject("vbscript.regexp")
  3.         .Global = True
  4.         .Pattern = "(.{2,})(?=.*\1)"
  5.         s = StrReverse(s)
  6.         RemSameName = StrReverse(.Replace(s, ""))
  7.     End With
  8. End Function
複製代碼
C2填入  =RemSameName(B2)




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