excel函数翻译器，excel表格一键翻译中文公式

excel函数翻译器？1.打开excel，在上方菜单栏中找到“审阅”按钮，用鼠标点击一下。2.下方很清楚的看到“翻译”二字，点击“翻译”，会看到表格的右方出现了“信息搜索”一栏。3.想要把“生活”翻译为英文，可在“搜索”中输入内容，那么，excel函数翻译器？一起来了解一下吧。

Excel英文转中文公式

首先，感谢您的提问！

在回答问题之前，基虚我们假定：

电脑是链接网络的；

被翻译的Excel内容存放在"A2"单元格中，翻译的结果在"B2"单元格中显示。

那搏核燃么，我们只需在"B2"单元格中输入公式=FILTERXML(WEBSERVICE("http://fanyi.youdao.com/translate?&i="&A2&"&doctype=xml&version"),"//translation")，即可。

如下图示：

当我们在"A2"单元格中输入中文内容时，自动翻译为英文，反之，当输入英文内容时，也会自动翻译为中文。

当然，我们也可以借助于Excel菜单【审阅】-【翻译】命令，把Excel文档内容翻氏做译为我们想要的目标语言。

希望以上对你有帮助。谢谢！

excel怎么自动翻译成英文

怎么实现Excel文档自动翻译？Excel文件内容比较多，要一个个找到去翻译的话还是很浪费时间的，小编这里有一个Excel文档翻译的方法还不错，有兴趣的一起来看看！

借助文档翻译器进行翻译：

1：打开文档翻译器，点击选择页面中的文档翻译的功能。

2：添加需要进行翻译的Excel文档，点击【点击上传文档】按钮，选择需要的文件即可。

3：选择一个需要的翻译语言，可以将中文的文件翻译成英文，也可以将英文的文件翻译成中文，这是基本的语言，还有其他语言春谨改，自己可以去尝试。

4：之后就可以开始翻译啦，点击翻译的按钮，就会开始对添加的文件进行翻译。

5：翻译成功后的文件内容会先展示在右边的展示框中，我们可以先进行文件内容的查看。

6：如果需要保存文件，点击导出文件的按钮，选择一个保存的位置就好了。

Excel文档翻晌冲译的方法如同扒判上述介绍的一样方便，步骤不多，操作也十分便捷，有需要的话不妨去试试！

Excel函数统计怎么弄

生词本是经常需要整理的, 但这过程真是太哗数羡耗时了, 特别是查询翻译时。

本文利用 Excel 的 WEBSERVICE 和 FILTERXML 函数实现批毕消量翻译。

利用以下 Excel 公式实现批量翻译 :

全文完。

便捷的乱拍中英互译。

利用 WEBSERVICE 函数提取有道翻译查询结果, 再利用 FILTERXML 提取目标数据。

复制以下公式到目标单元格。

END

感谢阅读。

更多相关内容 :

excel可以翻译中英文吗

首先， 就是要将我们电脑上的Excel表格翻译给打开，使该进入到后台运行的阶段。

打开文档翻译的后，在电脑桌面上，我们可以看到弹出的功能页面。页面的左侧是功能板块，在多种功能中，我们需要选择一空友困下文档翻译功能

我们进入到文档翻译的功能页面后，点击 Excel表格翻译。再为该功能添加一下Excel表格的文件。最简单的方式就是直接将我们需要翻译的表格拖拽到页面中，当然我们点击页面中的“上传文件”也是一样的。

上传完表格文件之后，可以适当的修改一下告清表格翻译前后的语种，如翻译前的语言是简体中文，而我们翻译后的语言是英文的。

如果我们有导出格式和导出目录要求的，就需要调整一下了。一般我们的导出格式是不需要调整的，斗念只要修改一下导出目录就可以了。

最后，我们只需要点击一下整个功能页面右下角的“开始识别”就好了。

excel函数翻译成中文

我之前用过，质量还可以，三千条左右的内容，不到10分钟就OK了，我再校对一下就能用，挺好。谷歌翻译确实是所有机器翻译中质量最高的。

代码如下，放模块1里：

FunctionURLEncodePlus(strURL)
'ANSI编码,空格处理成+号
Dimi
Dim瞎者辩tempStr
Fori=1ToLen(strURL)
IfAsc(Mid(strURL,i,1))<0Then
tempStr="%"&Right(CStr(Hex(Asc(Mid(strURL,i,1)))),2)
tempStr="%"&Left(CStr(Hex(Asc(Mid(strURL,i,1)))),Len(CStr(Hex(Asc(Mid(strURL,i,1)))))-2)&tempStr
URLEncodePlus=URLEncodePlus&tempStr
ElseIf(Asc(Mid(strURL,i,1))>嫌世=65AndAsc(Mid(strURL,i,1))<=90)Or_
(Asc(Mid(strURL,i,1))>=97AndAsc(Mid(strURL,i,1))<=122)Or_
(Asc(Mid(strURL,i,1))>=48AndAsc(Mid(strURL,i,1))<=57)Then
URLEncodePlus=URLEncodePlus&Mid(strURL,i,1)
Else
tempStr=Mid(strURL,i,1)
SelectCasetempStr
Case".","-","~","_"'如果发现网站有其他不需要编码的字符，放在这里
URLEncodePlus=URLEncodePlus&tempStr
Case""
URLEncodePlus=URLEncodePlus&"+"
CaseElse
URLEncodePlus=URLEncodePlus&"%"&Hex(Asc(tempStr))
磨缺EndSelect
EndIf
Next
EndFunction
PublicFunctionEnToCh(rngAsRange)
Dimxml
Dimurl$,EngSentence$
Setxml=CreateObject("MSXML2.XMLHTTP")
EngSentence=URLEncodePlus(rng.Text)
url="https://translate.google.cn/m?hl=en&sl=enN&tl=zh-CN&ie=UTF-8&prev=_m&q="&EngSentence
Withxml
.Open"GET",url,False
.send
IfInStr(.responseText,"")>0Then
EnToCh=Split(Split(.responseText,"")(1),"