ExcelVBA语句中英文提取模块语句.docx

吴敏技巧-如何在excel中提取中英文 转载▼ Important: To access the commands that you need to create VBA code, the Developer tab must be visible in the Excel 2007 Ribbon user interface. If the Developer tab is not visible, use the following steps to display it: Click the Office Button, and then click Excel Options. In the Popular category, under Top options for working with Excel, select the Show Developer tab in the Ribbon check box, and then click OK. On the Developer tab, click Visual Basic to open the Visual Basic Editor. 为实现这一命令，需要创建VBA代码，必须在excel2007显示开发工具。 即：点击officeexcel选项常用显示开发工具确定 之后，在VBA代码窗口中，执行菜单操作“插入”→“模块”，然后，会自动创建一个名为“模块1”的模块。 最后，将如下代码粘贴到你的模块1中： 复制以下内容 _______________________________________________________ 中文 Function SplitStringChs(TheString) Dim n, Chs For n = 1 To Len(TheString) If Asc(Mid(TheString, n, 1)) 0 Then Chs = Chs Mid(TheString, n, 1) End If Next SplitStringChs = Chs End Function 英文 Function SplitStringEng(TheString) Dim n, Eng For n = 1 To Len(TheString) If Asc(Mid(TheString, n, 1)) = 0 Then Eng = Eng Mid(TheString, n, 1) End If Next SplitStringEng = Trim(Eng) End Function 点保存，然后07版excel会显示未启用宏之类的，选择否，另存为03excel。 关掉原先的excel和模块选项卡，打开03版excel，在B1输入=SplitStringChs(A1),然后将B1拓展到B列， 同理在C1输入=SplitStringEng(A1),然后将C1拓展到C列。 搞定！ 在此过程中，可能出现宏禁用的提示，打开excel选项信任中心宏设置启用所有宏信任对VBA工程对象的访问 二.如何将EXCEL中同处于一列的中英文分别处于单独的两列？ 情况一：中英文处于同一列不同的两行， B1输入=LEFT(A1,2*LEN(A1)-LENB(A1))， C1输入=RIGHT(A2,LENB(A2)-LEN(A2))，分别提取内容 其它可用的自动翻译服务器： 1）Language Weaver 途径：项目设置——记忆库添加——SDL Language Weaver——SDL Trados Studio用户的LW社区用户（早期访问）（C） 2）SDL自动翻译服务器 途径：项目设置-添加——SDL自动翻译服务器——是——SDL Trados Studio用户的SDL ATS社区账户（S）——下一步（词典序列/项目不知道啥情况）——完成。 （注意：其中第三步选择“是”与“否”要基于翻译内容的机密性，如果“是”，会将您所翻译的内容记忆到SDL自动翻译服务器中，可能会涉及泄密问题。） 1.在excel中如何对一列里的中文和英文分列出来 1.在数据区点一下鼠标——点“数据”菜单——“排序……”——弹出“排序”对话框——“主要关键字”选你要分中英文的那一列，想让英文在前则选“升序”，想让中文在前则选“降序”——点“确定”即可完成。 2.如果总是英文在前中文在后。 提取英文的公式是： =LEFT(A1,2