想制作西班牙語和中文詞匯表，怎樣將西班牙語和中文自動分成兩列，用正則或Excel如何解決呢？

想制作西班牙語和中文詞匯和短語表，怎樣將西班牙語和中文自動分成兩列，用正則或Excel如何解決呢？例如下面這種格式：

inobservancia為遵守 
interrogatorio 質問
irretroactividad不溯既往性 
alegación辯護
alta traición叛國罪
alteración del orden擾亂治安
anteproyecto法案
anulación廢除
apelar上訴
recurrir上訴
aplicación de la ley法律的實施
audiencia pública公審
audiencia審訊

uj5u.com熱心網友回復：

假設你的某一行放在A1單元格，建議用以下公式嘗試。

LEFT(A1,LENB(A1)-LEN(A1))
RIGHT(A1,LEN(A1)*2-LENB(A1))

實際原理是，LENB回傳位元組數，LEN回傳字符數，二者的差值就代表中文字串的長度，通過left或者right進行分離。
如果公式無效，與你的excel設定默認語言有關。

uj5u.com熱心網友回復：

在excel中文版下，Left顯示為空，Right展示中文和西語。在excel西語版下，left和right都無法識別，展示問號。

uj5u.com熱心網友回復：

還有人來救貼嗎？？

uj5u.com熱心網友回復：

只會寫自定義公式了，找出首個漢字的位置，以此進行切分。由于有些西語字符也落在漢字的西方語言字符區，還要進行細分。
或可考慮在 UEdit32 里進行分拆，不過剛才看了下，好像也不大可靠啊。

uj5u.com熱心網友回復：

參考 2 樓  曉 的回復:

在excel中文版下，Left顯示為空，Right展示中文和西語。在excel西語版下，left和right都無法識別，展示問號。

樓主是在回復我么？建議以后回復帖子點參考，這樣別人能收到訊息提示，我是看帖子沒關，才進來看的，否則我還不知都你這無效呢!如果不行的話，就該用VBA了。晚上回你code。

uj5u.com熱心網友回復：

1.打開excel，同時按下alt+F11，彈出的視窗即為VBA環境。
2.在左側偏上界面插入模塊，

3.雙擊打開模塊，注意一定是打開模塊，粘貼下面代碼：
4.回到excel表格界面，在目的單元格內，輸入=CN（A1），回車后將會提取中文字符。

Function CN(CH As String) As String
    Dim Chinese As Object
    Set Chinese = CreateObject("VBSCRIPT.REGEXP")
    Chinese.Pattern = "[^\u4e00-\u9fa5]"
    Chinese.IgnoreCase = True
    Chinese.Global = True
    CN = Chinese.Replace(CH, "")
    Set Chinese = Nothing
End Function


提取功能是在“^\u4e00-\u9fa5”實作，實際代表中文字符的正則運算式，如提取西語，請自行查找相關正則。

uj5u.com熱心網友回復：

參考 6 樓 nangongxiaobai的回復:

1.打開excel，同時按下alt+F11，彈出的視窗即為VBA環境。
2.在左側偏上界面插入模塊，

3.雙擊打開模塊，注意一定是打開模塊，粘貼下面代碼：
4.回到excel表格界面，在目的單元格內，輸入=CN（A1），回車后將會提取中文字符。

Function CN(CH As String) As String
    Dim Chinese As Object
    Set Chinese = CreateObject("VBSCRIPT.REGEXP")
    Chinese.Pattern = "[^\u4e00-\u9fa5]"
    Chinese.IgnoreCase = True
    Chinese.Global = True
    CN = Chinese.Replace(CH, "")
    Set Chinese = Nothing
End Function


提取功能是在“^\u4e00-\u9fa5”實作，實際代表中文字符的正則運算式，如提取西語，請自行查找相關正則。

西語和其他拉丁語系是一樣的正則，和英語一樣的，您就一起幫我做了吧

uj5u.com熱心網友回復：

參考 7 樓  曉的回復:

Quote: 參考 6 樓 nangongxiaobai的回復:

1.打開excel，同時按下alt+F11，彈出的視窗即為VBA環境。
2.在左側偏上界面插入模塊，

3.雙擊打開模塊，注意一定是打開模塊，粘貼下面代碼：
4.回到excel表格界面，在目的單元格內，輸入=CN（A1），回車后將會提取中文字符。

Function CN(CH As String) As String
    Dim Chinese As Object
    Set Chinese = CreateObject("VBSCRIPT.REGEXP")
    Chinese.Pattern = "[^\u4e00-\u9fa5]"
    Chinese.IgnoreCase = True
    Chinese.Global = True
    CN = Chinese.Replace(CH, "")
    Set Chinese = Nothing
End Function


提取功能是在“^\u4e00-\u9fa5”實作，實際代表中文字符的正則運算式，如提取西語，請自行查找相關正則。

西語和其他拉丁語系是一樣的正則，和英語一樣的，您就一起幫我做了吧

西語縮寫ES，要西班牙spain的西班牙語

uj5u.com熱心網友回復：

Function ES(Spain As String) As String
    Dim Sp As Object
    Set Sp = CreateObject("VBSCRIPT.REGEXP")
    Sp.Pattern = "[^A-Z^a-z]"
    Sp.IgnoreCase = True
    Sp.Global = True
    ES = Sp.Replace(Spain, "")
    Set Sp = Nothing
End Function

uj5u.com熱心網友回復：

alt+f11快捷鍵在我電腦不好用呢，怎么換個方式進入VBA環境呢

uj5u.com熱心網友回復：

參考 10 樓  曉 的回復:

alt+f11快捷鍵在我電腦不好用呢，怎么換個方式進入VBA環境呢

https://jingyan.baidu.com/article/3f16e0031075a02590c1034e.html

uj5u.com熱心網友回復：

參考 11 樓 nangongxiaobai 的回復:

Quote: 參考 10 樓  曉 的回復:

alt+f11快捷鍵在我電腦不好用呢，怎么換個方式進入VBA環境呢

https://jingyan.baidu.com/article/3f16e0031075a02590c1034e.html

但是有個問題，這樣分離出來的西語丟失了單詞之間的空格，要怎么解決呢？

uj5u.com熱心網友回復：

參考 11 樓 nangongxiaobai 的回復:

Quote: 參考 10 樓  曉 的回復:

alt+f11快捷鍵在我電腦不好用呢，怎么換個方式進入VBA環境呢

https://jingyan.baidu.com/article/3f16e0031075a02590c1034e.html

還有一種情況（見圖）：西班牙語在前，中文在后，中文和西班牙語之間有空格，然后在一行中重復多好個這樣的中西單詞和詞組。怎么能把它們也分列顯示呢？中文一列，西語一列。



具體Excel檔案在這：
鏈接：https://pan.baidu.com/s/1Q_6nI3hKXgWLUPLZPhALmw 
提取碼：ij91 

uj5u.com熱心網友回復：

參考 11 樓 nangongxiaobai的回復:

Quote: 參考 10 樓  曉 的回復:

alt+f11快捷鍵在我電腦不好用呢，怎么換個方式進入VBA環境呢

https://jingyan.baidu.com/article/3f16e0031075a02590c1034e.html

能否至少幫忙解決一下空格的問題呢

uj5u.com熱心網友回復：

參考 13 樓  曉 的回復:

Quote: 參考 11 樓 nangongxiaobai 的回復:

Quote: 參考 10 樓  曉 的回復:

alt+f11快捷鍵在我電腦不好用呢，怎么換個方式進入VBA環境呢

https://jingyan.baidu.com/article/3f16e0031075a02590c1034e.html

還有一種情況（見圖）：西班牙語在前，中文在后，中文和西班牙語之間有空格，然后在一行中重復多好個這樣的中西單詞和詞組。怎么能把它們也分列顯示呢？中文一列，西語一列。



具體Excel檔案在這：
鏈接：https://pan.baidu.com/s/1Q_6nI3hKXgWLUPLZPhALmw 
提取碼：ij91 

從來不用百度的任何產品，我就不下載看了。

uj5u.com熱心網友回復：

參考 14 樓  曉 的回復:

Quote: 參考 11 樓 nangongxiaobai的回復:

Quote: 參考 10 樓  曉 的回復:

alt+f11快捷鍵在我電腦不好用呢，怎么換個方式進入VBA環境呢

https://jingyan.baidu.com/article/3f16e0031075a02590c1034e.html

能否至少幫忙解決一下空格的問題呢

有個更為方便的方法解決你的問題，先把excel的內容copy到word中，然后利用查找替換功能，ctrl+H。輸入^$，即可全部替換掉英文字符，具體操作程序你可以搜索了，我看網上有很多教程。

https://jingyan.baidu.com/article/db55b609da414e4ba30a2f01.html

uj5u.com熱心網友回復：

不知道這里說用長度差比較的人都是怎么想的，明明西班牙語里面有非英文字符，這些肯定還是 Unicode 編碼，而 Excel 內部肯定也是 Unicode 編碼的，這樣做顯然是不可行的。

uj5u.com熱心網友回復：

方法：快速填充和公式。要求excel能夠使用快速填充功能。WPS不可以

uj5u.com熱心網友回復：

上面的功能厲害，雖然只是看看還沒用過，2013 也只很偶爾的碰一下，多還在用著早些的版本。

uj5u.com熱心網友回復：

參考 1 樓 liwei28 的回復:

方法：快速填充和公式。要求excel能夠使用快速填充功能。WPS不可以

臥槽，這個??，真好用。

uj5u.com熱心網友回復：

參考 18 樓 liwei28的回復:

方法：快速填充和公式。要求excel能夠使用快速填充功能。WPS不可以

這個問題已解答。各位大神幫幫忙，移步回答一下這個問題吧：：《怎樣把兩個txt檔案中的內容同行合并？》, 一起來圍觀吧 https://bbs.csdn.net/topics/392735342

uj5u.com熱心網友回復：

參考 6 樓 nangongxiaobai的回復:

1.打開excel，同時按下alt+F11，彈出的視窗即為VBA環境。
2.在左側偏上界面插入模塊，

3.雙擊打開模塊，注意一定是打開模塊，粘貼下面代碼：
4.回到excel表格界面，在目的單元格內，輸入=CN（A1），回車后將會提取中文字符。

Function CN(CH As String) As String
    Dim Chinese As Object
    Set Chinese = CreateObject("VBSCRIPT.REGEXP")
    Chinese.Pattern = "[^\u4e00-\u9fa5]"
    Chinese.IgnoreCase = True
    Chinese.Global = True
    CN = Chinese.Replace(CH, "")
    Set Chinese = Nothing
End Function


提取功能是在“^\u4e00-\u9fa5”實作，實際代表中文字符的正則運算式，如提取西語，請自行查找相關正則。

這個問題已解答。各位大神幫幫忙，移步回答一下這個問題吧：《怎樣把兩個txt檔案中的內容同行合并？》, 一起來圍觀吧 https://bbs.csdn.net/topics/392735342

uj5u.com熱心網友回復：

參考 樓主  曉的回復:

想制作西班牙語和中文詞匯和短語表，怎樣將西班牙語和中文自動分成兩列，用正則或Excel如何解決呢？例如下面這種格式：

inobservancia為遵守 
interrogatorio 質問
irretroactividad不溯既往性 
alegación辯護
alta traición叛國罪
alteración del orden擾亂治安
anteproyecto法案
anulación廢除
apelar上訴
recurrir上訴
aplicación de la ley法律的實施
audiencia pública公審
audiencia審訊

這個問題已解答。各位大神幫幫忙，移步回答一下這個問題吧：《怎樣把兩個txt檔案中的內容同行合并？》, 一起來圍觀吧 https://bbs.csdn.net/topics/392735342

uj5u.com熱心網友回復：

以上問題均以解決，大神們可否移步幫我解決下這個帖子《怎樣把多層檔案夾下的.xml檔案批量合并成一個.xml檔案，再將該xml檔案去除格式和標簽轉成.txt純文本檔案？》 https://bbs.csdn.net/topics/392736381

uj5u.com熱心網友回復：

xzzxvzxv

uj5u.com熱心網友回復：

長知識拉！！！學習！！

uj5u.com熱心網友回復：

長知識拉！！！學習！！

uj5u.com熱心網友回復：

假設你的某一行放在A1單元格，建議用以下公式嘗試。

LEFT(A1,LENB(A1)-LEN(A1))
RIGHT(A1,LEN(A1)*2-LENB(A1))

實際原理是，LENB回傳位元組數，LEN回傳字符數，二者的差值就代表中文字串的長度，通過left或者right進行分離。
如果公式無效，與你的excel設定默認語言有關。

uj5u.com熱心網友回復：

很好，挺有用的

uj5u.com熱心網友回復：

參考 13 樓  曉 的回復:

Quote: 參考 11 樓 nangongxiaobai 的回復:

Quote: 參考 10 樓  曉 的回復:

alt+f11快捷鍵在我電腦不好用呢，怎么換個方式進入VBA環境呢

https://jingyan.baidu.com/article/3f16e0031075a02590c1034e.html

還有一種情況（見圖）：西班牙語在前，中文在后，中文和西班牙語之間有空格，然后在一行中重復多好個這樣的中西單詞和詞組。怎么能把它們也分列顯示呢？中文一列，西語一列。



具體Excel檔案在這：
鏈接：https://pan.baidu.com/s/1Q_6nI3hKXgWLUPLZPhALmw 
提取碼：ij91 

中文后加上換行符就是了

uj5u.com熱心網友回復：

參考 6 樓 nangongxiaobai 的回復:

1.打開excel，同時按下alt+F11，彈出的視窗即為VBA環境。
2.在左側偏上界面插入模塊，

3.雙擊打開模塊，注意一定是打開模塊，粘貼下面代碼：
4.回到excel表格界面，在目的單元格內，輸入=CN（A1），回車后將會提取中文字符。

Function CN(CH As String) As String
    Dim Chinese As Object
    Set Chinese = CreateObject("VBSCRIPT.REGEXP")
    Chinese.Pattern = "[^\u4e00-\u9fa5]"
    Chinese.IgnoreCase = True
    Chinese.Global = True
    CN = Chinese.Replace(CH, "")
    Set Chinese = Nothing
End Function


提取功能是在“^\u4e00-\u9fa5”實作，實際代表中文字符的正則運算式，如提取西語，請自行查找相關正則。

CJK Unified Ideographs區是4E00-9FFF，不是9fa5

uj5u.com熱心網友回復：

走過路過進來看看

轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/50302.html

標籤：Microsoft Office應用

上一篇：Visual Studio 2017打開擴展與更新對話框報例外

下一篇：xdelta3.0 這個工具 怎么使用？