ç¼ç¨æ¯ç¼ç¨åºçç®ç§°ï¼å®æ¯ä¸ºäºæ¹ä¾¿å·¥ä½ï¼æè½å¤å·¥ä½èç¨è®¡ç®æºè¯è¨ç¼åç¨åºè¾
å©å·¥ä½çæ¹å¼ã
举个ä¾åã
㙆 æ¼é³ hong2 æ人认è¯è¿ä¸ªåhóngï¼ä½ä¸ä¼è¾å
¥Ã³ï¼äºæ¯ç¨2æ¥è¡¨ç¤ºé³è°ã
å¦æææ³å¨çµèä¸åä¸ä¸ªç¨åºï¼è¯å«æææ±åæ¼é³ãéå°hong2 æè§å¾ä¸ç½ï¼å°±æ³æå®ä»¬æ£ç¡®è½¬æ¢ï¼è¿å°±è¦ç¼ç¨ï¼ç¼åä¸ä¸ªä¸ä¸è½¬æ¢é³è°çå°ç¨åºã
ä¾åï¼
Sub é³è°ç¿»è¯()
On Error GoTo BB
â = ActiveCell
â
= Right(â, 1)
â = Left(â, Len(â) - 1)
â = Replace(â, "v", "ü")
If InStr(â, "a") Then â = InStr(â, "a"): â = â
- 1: GoTo BB
If InStr(â, "o") Then â = InStr(â, "o"): â = â
+ 3: GoTo BB
If InStr(â, "e") Then â = InStr(â, "e"): â = â
+ 7: GoTo BB
If InStr(â, "ui") Then â = InStrRev(â, "i"): â = â
+ 11: GoTo BB
If InStr(â, "iu") Then â = InStrRev(â, "u"): â = â
+ 15: GoTo BB
If InStr(â, "i") Then â = InStr(â, "i"): â = â
+ 11: GoTo BB
If InStr(â, "u") Then â = InStr(â, "u"): â = â
+ 15: GoTo BB
If InStr(â, "ü") Then â = InStr(â, "ü"): â = â
+ IIf(â Like "[jqxy]*", 15, 19)
BB:
v = Split("Ä,á,Ç,à ,Å,ó,Ç,ò,Ä,é,Ä,è,Ä«,Ã,Ç,ì,Å«,ú,Ç,ù,Ç,Ç,Ç,Ç", ",")
v = WorksheetFunction.Replace(â, â, 1, v(â))
Set â
= New DataObject
â
.SetText v
â
.PutInClipboard
Set â
= Nothing
Application.StatusBar = IIf(Err.Number, "失败", v)
End Sub
è¿ä¸ªç¨åºå°±æ¯ç¼ç¨ç»æï¼å®å¯ä»¥å¨éä¸æ±åæ¼é³åï¼ç¹ä¸ä¸å°±è¦excelç¶ææ æ¾ç¤ºæ£å¸¸æ¼é³ï¼å¹¶ä¸è¿ä¸ªæ¼é³ä¹æ¾å°äºåªè´´æ¿ä¸ï¼å¯ä»¥æ转æ¢åçæ¼é³ç²è´´å¨ä»»ä½å°æ¹ã
温馨提示:答案为网友推荐,仅供参考