返回列表 上一主題 發帖

[發問] 文字組合問題

jj369963

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

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

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

論壇貢獻勳章
5#
發表於 2012-3-28 14:47 | 只看該作者
華語(文)教學學系    變成  華語文教學學系   華語教學學系    華文教學學系
無規律，無解。

TOP

jj369963

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

        靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。
返回列表 上一主題