返回列表 上一主題 發帖

[發問] 文字組合問題

[發問] 文字組合問題

Dear

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

以下為問題:

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

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


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


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


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

回復 1# jj369963


   
sssefdvcv.jpg
2012-3-28 11:28

TOP

回復 2# mark15jill


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

TOP

回復 3# jj369963


    圖片就是程式碼..

TOP

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

TOP

回復 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

回復 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

        靜思自在 : 吃苦了苦、苦盡廿來,享福了福、福盡悲來。
返回列表 上一主題