excel中输姓名自动出现拼音码,如何解决“李”姓被转换为“M”等问题,如“李刚”，拼音码为“MG"
\u5728Excel\u4e2d\u5982\u4f55\u5c06\u59d3\u540d\u8f6c\u6362\u6210\u62fc\u97f3Function hztopy(hzpy As String) As String
Dim hzstring As String, pystring As String
Dim hzpysum As Integer, hzi As Integer, hzpyhex As Integer
hzstring = Trim(hzpy)
hzpysum = Len(Trim(hzstring))
pystring = ""
For hzi = 1 To hzpysum
hzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1)))
Select Case hzpyhex
Case &HB0A1 To &HB0C4: pystring = pystring + "A"
Case &HB0C5 To &HB2C0: pystring = pystring + "B"
Case &HB2C1 To &HB4ED: pystring = pystring + "C"
Case &HB4EE To &HB6E9: pystring = pystring + "D"
Case &HB6EA To &HB7A1: pystring = pystring + "E"
Case &HB7A2 To &HB8C0: pystring = pystring + "F"
Case &HB8C1 To &HB9FD: pystring = pystring + "G"
Case &HB9FE To &HBBF6: pystring = pystring + "H"
Case &HBBF7 To &HBFA5: pystring = pystring + "J"
Case &HBFA6 To &HC0AB: pystring = pystring + "K"
Case &HC0AC To &HC2E7: pystring = pystring + "L"
Case &HC2E8 To &HC4C2: pystring = pystring + "M"
Case &HC4C3 To &HC5B5: pystring = pystring + "N"
Case &HC5B6 To &HC5BD: pystring = pystring + "O"
Case &HC5BE To &HC6D9: pystring = pystring + "P"
Case &HC6DA To &HC8BA: pystring = pystring + "Q"
Case &HC8BB To &HC8F5: pystring = pystring + "R"
Case &HC8F6 To &HCBF9: pystring = pystring + "S"
Case &HCBFA To &HCDD9: pystring = pystring + "T"
Case &HEDC5: pystring = pystring + "T"
Case &HCDDA To &HCEF3: pystring = pystring + "W"
Case &HCEF4 To &HD1B8: pystring = pystring + "X"
Case &HD1B9 To &HD4D0: pystring = pystring + "Y"
Case &HD4D1 To &HD7F9: pystring = pystring + "Z"
Case Else
pystring = pystring + Mid(hzstring, hzi, 1)
End Select
Next
hztopy = pystring
End Function
\u8fd9\u662f\u6211\u4ece\u522b\u4eba\u7684\u90a3\u513f\u62f7\u7684\u4e00\u4e2a\u81ea\u5b9a\u4e49\u51fd\u6570\uff0c\u4f60\u5982\u679c\u4f1a\u7528VBA\u7684\u8bdd\u5c31\u53ef\u4ee5\u4e86\u3002
\u5982\u679c\u4e0d\u4f1a\u7528\u7684\u8bdd\u5c31\u7ed9\u6211\u53d1\u6d88\u606f\u5427\u3002HI ME\uff01
\u4e00\u3001\u6253\u5f00\u9700\u8981\u8fdb\u884c\u6392\u5e8f\u7684excel\u8868\u683c\u3002
\u4e8c\u3001\u9009\u4e2d\u9996\u884c\uff0c\u5982\u56fe\u793a\u610f\uff1a
\u4e09\u3001\u5728\u4e0a\u65b9\u9009\u62e9\u83dc\u5355\u680f\u7684\u201c\u6570\u636e\u201d\uff0c\u70b9\u51fb\u201c\u7b5b\u9009\u201d\uff0c\u9996\u884c\u7684\u6bcf\u4e2a\u5355\u5143\u683c\u65c1\u8fb9\u4f1a\u51fa\u73b0\u4e00\u4e2a\u5411\u4e0b\u9009\u62e9\u7684\u6309\u94ae\u3002
\u56db\u3001\u70b9\u51fb\u59d3\u540d\u5355\u5143\u683c\u65c1\u8fb9\u5411\u4e0b\u7bad\u5934\uff0c\u9009\u62e9\u201d\u5347\u5e8f\u201c\u3002
\u4e94\u3001\u5b8c\u6210\u56fe\u5982\u4e0b\uff1a
重新装字体
绛旓細1銆侀鍏堝湪鐢佃剳妗岄潰涓婃墦寮excel鏂囨。銆2銆佺劧鍚庤緭鍏ュ叕寮忊滐紳getpy(C2)鈥濄3銆佹鏃跺氨鍑虹幇鎷奸煶浜銆4銆佹帴鐫閫変腑D2鍗曞厓鏍硷紝鍚戜笅鎷栧姩榧犳爣銆5銆佹墍鏈夊鍚嶉兘鑷姩鐢熸垚鎷奸煶浜嗐6銆佽緭鍏ュ叕寮忊滐紳PROPER(D2)鈥濓紝鎸夊洖杞︾‘璁わ紝鍙互灏嗛瀛楁瘝鏀规垚澶у啓銆7銆佹渶鍚庨瀛楁瘝灏卞彉鎴愬ぇ鍐欎簡銆
绛旓細锛屾嫾闊冲嵆鍒诲嚭鐜帮級銆傜户缁搷浣滐紝閫夋嫨浣犲垰鍒氬緱鍒版嫾闊崇殑鍗曞厓鏍糄2锛岀劧鍚庡悜涓嬫嫋鍔ㄩ紶鏍囷紝鐩村埌浣犻渶瑕佽浆鎹㈢殑濮撳悕鍖哄煙閮借閫変腑锛岃繖鏍凤紝鎵鏈夊鍚嶇殑鎷奸煶灏鑷姩鐢熸垚浜嗭紙3銆佹鏃跺氨鍑虹幇鎷奸煶浜嗐傦紝4銆佹帴鐫閫変腑D2鍗曞厓鏍硷紝鍚戜笅鎷栧姩榧犳爣銆傦紝鎵鏈濮撳悕鎷奸煶涓缃戞墦灏斤級銆傚鏋滀綘甯屾湜鎷奸煶鐨勯瀛楁瘝鏇村叿鏍煎紡鎰燂紝鍙互鍦―2鍗曞厓鏍涓緭...
绛旓細1銆侀鍏堝湪鑷繁鐢佃剳涓婏紝鎵撳紑Excel涓浠借〃鏍笺2銆佸湪鎵撳紑鐨勮〃鏍糄1鍗曞厓鏍间笂锛岃緭鍏ヨ浆鎷奸煶鐨勬眽瀛楋紝鐒跺悗鍦―2鍗曞厓鏍奸噷杈撳叆=getpy(A2)鍏紡銆傚洜涓哄鍚嶅湪A鍒椾笂锛屾墍浠ラ渶瑕佸紩鐢ㄥ崟鍏冩牸閫夋嫨A2銆3銆佽緭鍏ュ畬鍏紡閫変腑濂藉紩鐢ㄥ悕瀛楃殑鍗曞厓鏍间箣鍚庯紝鎸変笅纭畾閿湪D2鍗曞厓鏍煎氨鍙互鐪嬪埌濮撳悕宸茬粡杞崲鎴愭嫾闊充簡銆4銆佺劧鍚庨変腑D2鍗曞厓鏍...
绛旓細1.渚嬪Excel琛ㄦ牸涓湁濡備笅鍥炬墍绀烘枃瀛楋紝鐜板湪闇瑕佺粰鏂囧瓧娣诲姞鎷奸煶銆2.閫変腑杈撳叆姹夊瓧鐨勫崟鍏冩牸锛屼緷娆″崟鍑昏彍鍗曟爮鐨勨滄牸寮忊濃啋鈥滄嫾闊虫寚鍗椻濃啋鈥滅紪杈戔濄3.杩欐椂鍊欏彲浠ュ湪姹夊瓧涓婃柟杈撳叆鎷奸煶浜嗐4.杩欐椂鍊欏彂鐜版枃瀛椾笂鎷奸煶杩樹笉鏄剧ず锛屽彲浠ヨ繖鏍锋搷浣滐細閫変腑鍗曞厓鏍硷紝鐒跺悗鍦ㄨ彍鍗曟爮渚濇鍗曞嚮鈥滄牸寮忊濃啋鈥滄嫾闊虫寚鍗椻濃啋鈥滄樉绀烘垨闅愯棌...
绛旓細1. 鍦‥xcel涓緭鍏ュ鍚嶆暟鎹2. 鍦ㄥ彟涓涓崟鍏冩牸涓娇鐢ㄦ垜浠箣鍓嶆彁鍒扮殑姹夊瓧杞嫾闊冲嚱鏁帮紝灏嗗鍚嶈浆鍖栦负鎷奸煶銆3. 浣跨敤Excel鐨凩EFT鍑芥暟锛屾彁鍙栨嫾闊崇殑绗竴涓瓧姣嶃侺EFT鍑芥暟鍙互鎻愬彇涓涓枃鏈瓧绗︿覆鐨勫乏渚ч儴鍒嗗瓧绗︺備緥濡傦紝濡傛灉鎴戜滑鐨勫鍚嶆槸“寮犱笁”锛屾垜浠皢杩欎釜濮撳悕杞寲涓烘嫾闊“Zhang San”锛...
绛旓細鐜拌浣犵殑濮撳悕鍦ˋ鍒楀A2寮濮杈撳叆濮撳悕锛屽垯鍦˙2杈撳叆 =IF(A2="","",VLOOKUP(A2,a,2)&VLOOKUP(MID(A2,2,1),a,2)&VLOOKUP(MID(A2,3,1),a,2))杩欓噷鍙鏄剧ず鏈澶3涓瓧鐨勫鍚嶉鍐欏瓧姣嶏紝鑻ユ湁瓒呰繃3涓殑鑷繁鍦ㄥ悗闈㈠姞 濡4涓瓧锛屽垯鍏紡涓 =IF(A2="","",VLOOKUP(A2,a,2)&VLOOKUP(MID(A2,2...
绛旓細1銆侀鍏堟墦寮excel琛ㄦ牸骞杈撳叆鎴戝拰浣狅紝濡備笅鍥炬墍绀猴細2銆佺劧鍚庢壘鍒癲iy宸ュ叿绠憋紝濡備笅鍥炬墍绀猴細3銆佹帴鐫鍗曞嚮鎷奸煶涓殑鎷奸煶鏍囨敞鎸夐挳锛屽涓嬪浘鎵绀猴細4銆佸湪寮瑰嚭鐨勫璇濇涓紝鎴戜滑閫夋嫨鏍囨敞鐨勫崟鍏冩牸锛屼互鍙婃嫾闊虫爣娉ㄩ夐」锛屽崟鍑荤‘瀹氾紝鍗冲彲鐪嬪埌鍦ㄦ眽瀛楃殑涓婃柟鍑虹幇浜嗘嫾闊筹紝濡備笅鍥炬墍绀猴細5銆佹渶鍚庡崟鍑婚鍑烘寜閽紝濡備笅鍥炬墍绀猴細
绛旓細鎵撳紑鐢佃剳鍚庯紝杩涘叆鍒扳淓xcel鈥濅腑锛岄変腑姹夊瓧鍚庯紝鍙抽敭鍗曞嚮銆傞夋嫨鈥滃鍒垛濇寜閽紝绮樿创鍒皐ord鏂囨。锛岄夋嫨鈥滃彧绮樿创鏂囨湰鈥濄傛墦寮骞惰繘鍏モ渨ord鈥濅腑锛岄変腑鏂囧瓧锛岀偣鍑诲彸涓婃柟鐨勨鎷奸煶鎸囧崡鈥濄傚湪绐楀彛涓偣鍑烩滅‘瀹氣濓紝鏂囧瓧涓婃柟灏辨湁浜嗘嫾闊筹紝澶嶅埗閫変腑鐨勬枃瀛椼鍦‥xcel涓鍙抽敭閫夋嫨鈥滀繚鐣欏師鏍煎紡绮樿创鈥濓紝杈撳叆鈥=PHONETIC(G9)鈥濄
绛旓細1銆侀鍏堝湪鑷繁鐢佃剳涓婏紝鎵撳紑Excel涓浠借〃鏍笺2銆佹垜浠氨鍦ㄦ墦寮鐨勮〃鏍糄1鍗曞厓鏍间笂锛岃緭鍏ヨ浆鎷奸煶鐨勬眽瀛楋紝鐒跺悗鍦―2鍗曞厓鏍閲岃緭鍏=getpy(A2)鍏紡銆傚洜涓濮撳悕鍦ˋ鍒椾笂锛屾墍浠ラ渶瑕佸紩鐢ㄥ崟鍏冩牸閫夋嫨A2銆3銆佽緭鍏ュ畬鍏紡閫変腑濂藉紩鐢鍚嶅瓧鐨勫崟鍏冩牸涔嬪悗锛屾寜涓嬬‘瀹氶敭鍦―2鍗曞厓鏍煎氨鍙互鐪嬪埌濮撳悕宸茬粡杞崲鎴愭嫾闊充簡銆4銆佺劧鍚庨変腑D2...
绛旓細5. 纭璁剧疆鍚庯紝鐐瑰嚮鈥滅‘瀹氣濇寜閽傛鏃讹紝閫夊畾鐨勬眽瀛楀皢琚浆鎹负鎷奸煶锛屽苟鏄剧ず鍦ㄧ浉搴旂殑鍗曞厓鏍间腑銆備笁銆佺ず渚 鍋囪浣犳湁涓涓寘鍚鐢濮撳悕鐨勮〃鏍硷紝闇瑕佸皢濮撳悕杞崲涓烘嫾闊炽備綘鍙互鎸夌収涓婅堪姝ラ锛岄変腑鍖呭惈濮撳悕鐨勫崟鍏冩牸鍖哄煙锛岀劧鍚庝娇鐢ㄢ滄嫾闊虫寚鍗椻濆姛鑳姐傝浆鎹㈠悗鐨勮〃鏍煎皢鏄剧ず姣忎釜瀛︾敓鐨勫鍚嶅拰瀵瑰簲鐨勬嫾闊筹紝鏂逛究鍚庣画澶勭悊鍜...
