返回列表 上一主題 發帖

[發問] 文字組合問題

jj369963

帖子
147 
主題
46 
精華
0 
積分
205 
點名
0  
作業系統
windows xp 
軟體版本
office 2003 
閱讀權限
20 
性別
女 
註冊時間
2012-3-19 
最後登錄
2026-9-22 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-3-28 11:11 | 顯示全部帖子

[發問] 文字組合問題

Dear

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

以下為問題：

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

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


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


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


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

jj369963

帖子
147 
主題
46 
精華
0 
積分
205 
點名
0  
作業系統
windows xp 
軟體版本
office 2003 
閱讀權限
20 
性別
女 
註冊時間
2012-3-19 
最後登錄
2026-9-22 
2#
發表於 2012-3-28 11:44 | 顯示全部帖子
回復 2# mark15jill


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

TOP

jj369963

帖子
147 
主題
46 
精華
0 
積分
205 
點名
0  
作業系統
windows xp 
軟體版本
office 2003 
閱讀權限
20 
性別
女 
註冊時間
2012-3-19 
最後登錄
2026-9-22 
3#
發表於 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

        靜思自在 : 看別人不順眼，是自己修養不夠。
返回列表 上一主題