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

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

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

5、输入代码(复制粘贴即可)：Sub translation()Dim i%, j%i = ActiveCell.Rowj = ActiveCell.ColumnCells(i, j + 1).FormulaR1C1 = "=FILTERXML(WEBSERVICE(""http://fanyi. _youdao.com/translate?&i=""&RC[-1]&""&doctype=xml&version"")," _"//translation"")"Cells(i, j + 1).SelectSelection.CopySelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = FalseEnd Sub