Excel一键实现单元格内容中文/英文的切换技巧

1、新建一个Excel文档，另存为启用宏的工作簿，后缀名为xlsm格式。

2、绘制一个控制按钮，本教程以插入一个矩形形状为例。

3、编辑文字并美化控制按钮，如图所示。

4、切换到VBA界面，插入一个模块，不清楚的可以参考以下链接：

5、输入代码(复制粘贴即可)：

Sub translation()

Dim i%, j%

i = ActiveCell.Row

j = ActiveCell.Column

Cells(i, j + 1).FormulaR1C1 = "=FILTERXML(WEBSERVICE(""http://fanyi. _

youdao.com/translate?&i=""&RC[-1]&""&doctype=xml&version"")," _

"//translation"")"

Cells(i, j + 1).Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,  _

SkipBlanks _

        :=False, Transpose:=False

    Application.CutCopyMode = False

End Sub

6、返回Excel窗口，指定宏。

7、以下列数据为例，选中需要中/英切换的单元格，点击按钮即可。