按步骤来：
1，按组合键ALT+F11调出VB窗口——插入——模块（复制代码到新模块中，复制完后始可关闭VB窗口。代码私信提供给你）
2.写入公式：=IF(LEN(A1)=2,getpy(A1),getpy(LEFT(A1,2)&"'"&getpy(RIGHT(A1,1))))
