返回列表 上一主題 發帖

[發問] 同一儲存格內有重複的內容如何整理

dk457587

帖子
2 
主題
1 
精華
0 
積分
3 
點名
0  
作業系統
windows 
軟體版本
2010 
閱讀權限
10 
註冊時間
2016-1-9 
最後登錄
2016-10-15 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-1-9 15:43 | 只看該作者

[發問] 同一儲存格內有重複的內容如何整理



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

請問這種問題要怎麼寫函式或vba?
收藏 分享

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2016-1-11 16:57 | 只看該作者
回復 1# dk457587
B欄是從哪來的。。。
最好是建立B欄時，單詞和單詞間用空白區隔
否則 名字內部分字可能和另一個名字重複根本分不清楚(Tomas , Tom) (John, Johnson)
也會造成誤刪。
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

dk457587

帖子
2 
主題
1 
精華
0 
積分
3 
點名
0  
作業系統
windows 
軟體版本
2010 
閱讀權限
10 
註冊時間
2016-1-9 
最後登錄
2016-10-15 
3#
發表於 2016-1-13 11:30 | 只看該作者
回復 2# stillfish00

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

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

非常謝謝您!

TOP

准提部林

帖子
2804 
主題
10 
精華
0 
積分
2860 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-5-1 
4#
發表於 2016-1-13 14:03 | 只看該作者
看起來只有〔首字英文大寫〕有規則，但非全部，仍不可靠！

有問題，最好附上檔案，看圖做不了事！！！

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
5#
發表於 2016-1-13 14:24 | 只看該作者
上傳範例檔案大家好測試
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
6#
發表於 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)
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 屋寬不如心寬。
返回列表 上一主題