1.启动Excel 2003（其它版本请仿照操作），打开相应的工作表；
2.执行“工具→宏→Visual Basic编辑器”命令（或者直接按“Alt+F11”组合键），进入Visual Basic编辑状态；
3.执行“插入→模块”命令，插入一个新模块。再双击插入的模块，进入模块代码编辑状态；
4.将代码输入其中；字数太多，你在下面链接区复制完整代码
http://jingyan.baidu.com/article/cd4c2979ee7808756e6e6085.html
5.代码输入完成后，直接关闭Visual Basic编辑窗口，返回Excel编辑状态；
6.自定义函数就可以用了，如：选中A2单元格，输入公式：=getpy(A2)。
