標題: [發問] 文字組合問題 [打印本頁]

---

作者: jj369963    時間: 2012-3-28 11:11     標題: 文字組合問題

Dear

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

以下為問題：

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

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


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


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


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

---

作者: mark15jill    時間: 2012-3-28 11:28

回復 1# jj369963


    [attach]10177[/attach]

---

作者: jj369963    時間: 2012-3-28 11:44

回復 2# mark15jill


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

---

作者: mark15jill    時間: 2012-3-28 13:56

回復 3# jj369963


    圖片就是程式碼..

---

作者: ANGELA    時間: 2012-3-28 14:47

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

---

作者: jj369963    時間: 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

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

---

作者: register313    時間: 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,"與",""))

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)