发布网友 发布时间:2022-04-19 12:32
共3个回答
热心网友 时间:2022-05-13 02:25
用自定义函数与EXCEL函数结合,如图,如附件。记得加载宏;
=SUBSTITUTE(SUBSTITUTE(Getpy(A1),MID(Getpy(A1),1,FIND(" ",Getpy(A1))),"")," ","") & " " & MID(Getpy(A1),1,FIND(" ",Getpy(A1)))热心网友 时间:2022-05-13 03:43
1.启动Excel 2003(其它版本请仿照操作),打开相应的工作表;
2.执行“工具→宏→Visual Basic编辑器”命令(或者直接按“Alt+F11”组合键),进入Visual Basic编辑状态;
3.执行“插入→模块”命令,插入一个新模块。再双击插入的模块,进入模块代码编辑状态;
4.将附件中的代码输入其中(因本题回答字数*、代码以附件的形式存在);
5.代码输入完成后,直接关闭Visual Basic编辑窗口,返回Excel编辑状态;
6.自定义函数就可以用了,如:选中A2单元格,输入公式:=getpy(A2)。
热心网友 时间:2022-05-13 05:18
http://wenku.baidu.com/view/e99675134431b90d6c85c78a.html