帖子: 147
主題: 46
精華: 0
積分: 205
點名: 0
作業系統: windows xp
軟體版本: office 2003
閱讀權限: 20
性別: 女
註冊時間: 2012-3-19
最後登錄: 2021-5-21

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-3-28 11:11 | 只看該作者

[發問] 文字組合問題

Dear

說真的這問題，我覺得非常難，希望可以請教熟悉excel的各位，資料有10萬多筆，希望可以寫函式或規則找出各種組合方式。

以下為問題：

就是去掉或保留括號找出各種可能組合

華語(文)教學學系變成  華語文教學學系    希望找出各種組合。
                                             華語教學學系
                                             華文教學學系

(生態與)環境教育學系  變成  生態與環境教育學系希望找出各種組合。
                                                   環境教育學系
                                                      生態教育學系
                                                      生態環境教育學系

工業教育(與技術)學系  變成工業教育與技術學系    希望找出各種組合。
                                                      工業教育學系
                                                      工業教育技術學系

(自然)科學教育學系變成    自然科學教育學系    希望找出各種組合。
                                                      科學教育學系
                                                      自然教育學系

樓主熱帖

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

2^#

發表於 2012-3-28 11:28 | 只看該作者

回復 1# jj369963

TOP

jj369963

中學生 Rank: 2

帖子: 147
主題: 46
精華: 0
積分: 205
點名: 0
作業系統: windows xp
軟體版本: office 2003
閱讀權限: 20
性別: 女
註冊時間: 2012-3-19
最後登錄: 2021-5-21

3^#

發表於 2012-3-28 11:44 | 只看該作者

回復 2# mark15jill

因為無法下載檔案，可否貼程式的文字碼上來呢，謝謝，也常感激

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

4^#

發表於 2012-3-28 13:56 | 只看該作者

回復 3# jj369963

圖片就是程式碼..

TOP

ANGELA

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 812
主題: 7
精華: 0
積分: 862
點名: 0
作業系統: XP
軟體版本: 2007
閱讀權限: 100
性別: 男
來自: 台中
註冊時間: 2010-5-13
最後登錄: 2019-10-10

論壇貢獻勳章

5^#

發表於 2012-3-28 14:47 | 只看該作者

華語(文)教學學系變成華語文教學學系華語教學學系華文教學學系
無規律，無解。

TOP

jj369963

中學生 Rank: 2

帖子: 147
主題: 46
精華: 0
積分: 205
點名: 0
作業系統: windows xp
軟體版本: office 2003
閱讀權限: 20
性別: 女
註冊時間: 2012-3-19
最後登錄: 2021-5-21

6^#

發表於 2012-3-28 20:48 | 只看該作者

回復 4# mark15jill

因為我有照著寫

Sub xg()
For xw = 1 To 65535

Range("f" & xw)-Value =Range ("a" & xw)-Value & Rabge ("b" & xw)-Value & Range("c" & xw). Value
Range("g" & xw)-Value =Range ("a" & xw)-Value & Rabge ("c" & xw)-Value
Range("h" & xw)-Value =Range ("b" & xw)-Value & Rabge ("c" & xw)-Value
\lext xw
End Sub

但是執行不出來，是否哪裡錯誤呢？只懂皮毛的我，還請指教，謝謝

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

2012龍年全勤獎章熱烈參與勳章

7^#

發表於 2012-3-28 21:45 | 只看該作者

回復 1# jj369963
只用3種有規則的,參考用
B1=REPLACE(A1,FIND("(",A1,1),FIND(")",A1,1)-FIND("(",A1,1)+1,"")
C1=SUBSTITUTE(SUBSTITUTE(A1,"(",""),")","")
D1=IF(C1=SUBSTITUTE(C1,"與",""),"",SUBSTITUTE(C1,"與",""))

TOP