'æ¬äººç¥éä¸ç¹ç¹excelçvbaç¼ç¨ï¼å¸æä¸é¢çæè·¯è½å¯¹ä½ æ帮å©
' æè·¯ï¼å设è¾å
¥çä½æ°è¶
è¿5 >éåæå5个æ°å >æåçæ£ä½æ°çéæ°å
Sub aaa()
a = len(Range("A1")) ' æåä½æ°ï¼ä½æ²¡è¾åº
b = Range("A1") '
c = b & "00000" 'åå®åå
æ ¼A1è¾å
¥çæ°è¶
è¿5ä½
d = Mid(c, 5, 1) & Mid(c, 4, 1) & Mid(c, 3, 1) & Mid(c, 2, 1) & Mid(c, 1, 1) 'ä»ç¬¬5ä½å°ç¬¬1ä½é¡ºåºæå
Range("A2") = Right(d, a) 'æªåè¾å
¥çä½æ°åï¼è¾åº
End Sub
温馨提示:答案为网友推荐,仅供参考