excel中把汉字转换成拼音

　　在工作的时候，需要我们将中文批量的修改成拼音的格式来显示，利用excel中的宏，定义一个getpy方法可以轻松的实现，下面就介绍一下方法
　　操作方法
　　01：
　　打开需要整理的表格数据，如下图
　　02：
　　快捷键altf11，调出宏设置页面，选择插入中的模块选项
　　03：
　　在出现的模块面板中，定义一个getpy的方法，将如下代码粘贴进去
　　Functionpinyin（pAsString）AsString
　　iAsc（p）
　　SelectCasei
　　Case20319To20318：
　　Case20317To20305：
　　Case20304To20296：
　　Case20295To20293：
　　Case20292To20284：
　　Case20283To20266：
　　Case20265To20258：
　　Case20257To20243：
　　Case20242To20231：
　　Case20230To20052：
　　Case20051To20037：
　　Case20036To20033：
　　Case20032To20027：
　　Case20026To20003：
　　Case20002To19991：
　　Case19990To19987：
　　Case19986To19983：
　　Case19982To19977：
　　Case19976To19806：
　　Case19805To19785：
　　Case19784To19776：
　　Case19775To19775：
　　Case19774To19764：
　　Case19763To19757：
　　Case19756To19752：
　　Case19751To19747：
　　Case19746To19742：
　　Case19741To19740：
　　Case19739To19729：
　　Case19728To19726：
　　Case19725To19716：
　　Case19715To19541：
　　Case19540To19532：
　　Case19531To19526：
　　Case19525To19516：
　　Case19515To19501：
　　Case19500To19485：
　　Case19484To19480：
　　Case19479To19468：
　　Case19467To19290：
　　Case19289To19289：
　　Case19288To19282：
　　Case19281To19276：
　　Case19275To19271：
　　Case19270To19264：
　　Case19263To19262：
　　Case19261To19250：
　　Case19249To19244：
　　Case19243To19243：
　　Case19242To19239：
　　Case19238To19236：
　　Case19235To19228：
　　Case19227To19225：
　　Case19224To19219：
　　Case19218To19213：
　　Case19212To19039：
　　Case19038To19024：
　　Case19023To19019：
　　Case19018To19007：
　　Case19006To19004：
　　Case19003To18997：
　　Case18996To18978：
　　Case18977To18962：
　　Case18961To18953：
　　Case18952To18784：
　　Case18783To18775：
　　Case18774To18774：
　　Case18773To18527：
　　Case18526To18519：
　　Case18518To18502：
　　Case18501To18491：
　　Case18490To18479：
　　Case18478To18464：
　　Case18463To18449：
　　Case18448To18448：
　　Case18447To18447：
　　Case18446To18240：
　　Case18239To18238：
　　Case18237To18232：
　　Case18231To18221：
　　Case18220To18212：
　　Case18211To18202：
　　Case18201To18185：
　　Case18184To18184：
　　Case18183To18182：
　　Case18181To18013：
　　Case18012To17998：
　　Case17997To17989：
　　Case17988To17971：
　　Case17970To17965：
　　Case17964To17962：
　　Case17961To17951：
　　Case17950To17948：
　　Case17947To17932：
　　Case17931To17929：
　　Case17928To17923：
　　Case17922To17760：
　　Case17759To17753：
　　Case17752To17734：
　　Case17733To17731：
　　Case17730To17722：
　　Case17721To17704：
　　Case17703To17702：
　　Case17701To17698：
　　Case17697To17693：
　　Case17692To17684：
　　Case17683To17677：
　　Case17676To17497：
　　Case17496To17488：
　　Case17487To17483：
　　Case17482To17469：
　　Case17468To17455：
　　Case17454To17434：
　　Case17433To17428：
　　Case17427To17418：
　　Case17417To17203：
　　Case17202To17186：
　　Case17185To16984：
　　Case16983To16971：
　　Case16970To16943：
　　Case16942To16916：
　　Case16915To16734：
　　Case16733To16709：
　　Case16708To16707：
　　Case16706To16690：
　　Case16689To16665：
　　Case16664To16658：
　　Case16657To16648：
　　Case16647To16475：
　　Case16474To16471：
　　Case16470To16466：
　　Case16465To16460：
　　Case16459To16453：
　　Case16452To16449：
　　Case16448To16434：
　　Case16433To16430：
　　Case16429To16428：
　　Case16427To16424：
　　Case16423To16420：
　　Case16419To16413：
　　Case16412To16408：
　　Case16407To16404：
　　Case16403To16402：
　　Case16401To16394：
　　Case16393To16221：
　　Case16220To16217：
　　Case16216To16213：
　　Case16212To16206：
　　Case16205To16203：
　　Case16202To16188：
　　Case16187To16181：
　　Case16180To16172：
　　Case16171To16170：
　　Case16169To16159：
　　Case16158To16156：
　　Case16155To15960：
　　Case15959To15959：
　　Case15958To15945：
　　Case15944To15934：
　　Case15933To15921：
　　Case15920To15916：
　　Case15915To15904：
　　Case15903To15890：
　　Case15889To15879：
　　Case15878To15708：
　　Case15707To15702：
　　Case15701To15682：
　　Case15681To15668：
　　Case15667To15662：
　　Case15661To15660：
　　Case15659To15653：
　　Case15652To15641：
　　Case15640To15632：
　　Case15631To15626：
　　Case15625To15455：
　　Case15454To15449：
　　Case15448To15437：
　　Case15436To15436：
　　Case15435To15420：
　　Case15419To15417：
　　Case15416To15409：
　　Case15408To15395：
　　Case15394To15386：
　　Case15385To15378：
　　Case15377To15376：
　　Case15375To15370：
　　Case15369To15364：
　　Case15363To15363：
　　Case15362To15184：
　　Case15183To15181：
　　Case15180To15166：
　　Case15165To15159：
　　Case15158To15154：
　　Case15153To15151：
　　Case15150To15150：
　　Case15149To15145：
　　Case15144To15144：
　　Case15143To15142：
　　Case15141To15141：
　　Case15140To15140：
　　Case15139To15129：
　　Case15128To15122：
　　Case15121To15120：
　　Case15119To15118：
　　Case15117To15111：
　　Case15110To15110：
　　Case15109To14942：
　　Case14941To14938：
　　Case14937To14934：
　　Case14933To14931：
　　Case14930To14930：
　　Case14929To14929：
　　Case14928To14927：
　　Case14926To14923：
　　Case14922To14922：
　　Case14921To14915：
　　Case14914To14909：
　　Case14908To14903：
　　Case14902To14895：
　　Case14894To14890：
　　Case14889To14883：
　　Case14882To14874：
　　Case14873To14872：
　　Case14871To14858：
　　Case14857To14679：
　　Case14678To14675：
　　Case14674To14671：
　　Case14670To14669：
　　Case14668To14664：
　　Case14663To14655：
　　Case14654To14646：
　　Case14645To14631：
　　Case14630To14595：
　　Case14594To14430：
　　Case14429To14408：
　　Case14407To14400：
　　Case14399To14385：
　　Case14384To14380：
　　Case14379To14369：
　　Case14368To14356：
　　Case14355To14354：
　　Case14353To14346：
　　Case14345To14171：
　　Case14170To14160：
　　Case14159To14152：
　　Case14151To14150：
　　Case14149To14146：
　　Case14145To14141：
　　Case14140To14138：
　　Case14137To14136：
　　Case14135To14126：
　　Case14125To14124：
　　Case14123To14123：
　　Case14122To14113：
　　Case14112To14110：
　　Case14109To14100：
　　Case14099To14098：
　　Case14097To14095：
　　Case14094To14093：
　　Case14092To14091：
　　Case14090To14088：
　　Case14087To14084：
　　Case14083To13918：
　　Case13917To13915：
　　Case13914To13911：
　　Case13910To13908：
　　Case13907To13907：
　　Case13906To13906：
　　Case13905To13897：
　　Case13896To13895：
　　Case13894To13879：
　　Case13878To13871：
　　Case13870To13860：
　　Case13859To13848：
　　Case13847To13832：
　　Case13831To13659：
　　Case13658To13612：
　　Case13611To13602：
　　Case13601To13407：
　　Case13406To13405：
　　Case13404To13401：
　　Case13400To13399：
　　Case13398To13396：
　　Case13395To13392：
　　Case13391To13388：
　　Case13387To13384：
　　Case13383To13368：
　　Case13367To13360：
　　Case13359To13357：
　　Case13356To13344：
　　Case13343To13341：
　　Case13340To13330：
　　Case13329To13327：
　　Case13326To13319：
　　Case13318To13148：
　　Case13147To13139：
　　Case13138To13121：
　　Case13120To13108：
　　Case13107To13097：
　　Case13096To13096：
　　Case13095To13092：
　　Case13091To13077：
　　Case13076To13069：
　　Case13068To13064：
　　Case13063To13061：
　　Case13060To12889：
　　Case12888To12876：
　　Case12875To12872：
　　Case12871To12861：
　　Case12860To12859：
　　Case12858To12853：
　　Case12852To12850：
　　Case12849To12839：
　　Case12838To12832：
　　Case12831To12830：
　　Case12829To12813：
　　Case12812To12803：
　　Case12802To12608：
　　Case12607To12598：
　　Case12597To12595：
　　Case12594To12586：
　　Case12585To12557：
　　Case12556To12360：
　　Case12359To12347：
　　Case12346To12321：
　　Case12320To12301：
　　Case12300To12121：
　　Case12120To12100：
　　Case12099To12090：
　　Case12089To12075：
　　Case12074To12068：
　　Case12067To12059：
　　Case12058To12040：
　　Case12039To11868：
　　Case11867To11862：
　　Case11861To11848：
　　Case11847To11832：
　　Case11831To11799：
　　Case11798To11782：
　　Case11781To11605：
　　Case11604To11590：
　　Case11589To11537：
　　Case11536To11359：
　　Case11358To11341：
　　Case11340To11340：
　　Case11339To11325：
　　Case11324To11304：
　　Case11303To11098：
　　Case11097To11078：
　　Case11077To11068：
　　Case11067To11056：
　　Case11055To11053：
　　Case11052To11046：
　　Case11045To11042：
　　Case11041To11039：
　　Case11038To11025：
　　Case11024To11021：
　　Case11020To11020：
　　Case11019To11019：
　　Case11018To11015：
　　Case11014To10839：
　　Case10838To10833：
　　Case10832To10816：
　　Case10815To10801：
　　Case10800To10791：
　　Case10790To10781：
　　Case10780To10765：
　　Case10764To10588：
　　Case10587To10545：
　　Case10544To10534：
　　Case10533To10520：
　　Case10519To10332：
　　Case10331To10330：
　　Case10329To10329：
　　Case10328To10323：
　　Case10322To10316：
　　Case10315To10310：
　　Case10309To10308：
　　Case10307To10297：
　　Case10296To10282：
　　Case10281To10275：
　　Case10274To10271：
　　Case10270To10263：
　　Case10262To10261：
　　Case10260To10257：
　　Case10256To10255：
　　Case10254To10254：
　　CaseElse：pinyinp
　　EndSelect
　　EndFunction
　　Functiongetpy（str）
　　Fori1ToLen（str）
　　pinyin（Mid（str，i，1））
　　Nexti
　　EndFunction
　　04：
　　保存后，选择关闭并返回表格选项
　　05：
　　在B2单元格中输入getpy（A2）并回车，就转化成了拼音了
　　06：
　　将鼠标放在B2单元格的右下方，指针变成是实心的十字时，按住鼠标左键向下拉，这样，所有的单元格就都应用上这个方法，变成拼音了