文档库 最新最全的文档下载
当前位置:文档库 › Excel VBA语句 中英文提取模块语句

Excel VBA语句 中英文提取模块语句

Excel VBA语句 中英文提取模块语句
Excel VBA语句 中英文提取模块语句

吴敏技巧-如何在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显示开发工具。

即:点击office>excel选项>常用>显示开发工具>确定

之后,在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*LEN(A1)-LENB(A1)) 提取中文的公式是:=RIGHT(A1,LENB(A1)-LEN(A1))

2. 问在excel电子表格中怎样批量删除偶数行?

新建一列,第一行输入1,第2行输入2,第3行输入1,第4行输入2,选快速输入直至底部,使这一列呈1、2、1、2样,选中菜单项数据-筛选,在新建的那列上选择筛选1或2(是偶数的那个数),删除之,并取消筛选即可。

3.excel怎么自动删除空白行?

数据-筛选-高级-选择不重复的记录

4.excel表如何在一列输入同一个数字?

excel表如何在一列输入同一个数字?就是在第一列输入7000个“1”,不要用拖拉的方法,有没有更简便的方法?

在列第一个单元格填入1,然后选中整列然后用快捷键CTRL加D,也就是向下填充然后这一列就全是1了

相关文档