dk457587

小學生 Rank: 1

帖子: 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

大學生 Rank: 4

帖子: 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)
也會造成誤刪。

假如不考慮上面說的，可以試試:
一般模組新增自訂函數

Function RemSameName(s As String)
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = "(.{2,})(?=.*\1)"
s = StrReverse(s)
RemSameName = StrReverse(.Replace(s, ""))
End With
End Function

複製代碼

C2填入 =RemSameName(B2)

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 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

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-21

4^#

發表於 2016-1-13 14:03 | 只看該作者

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

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

TOP

dk457587

小學生 Rank: 1

帖子: 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

stillfish00

大學生 Rank: 4

帖子: 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

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

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]