èå®è¯´ä¸¤ä¸ªåçååä¸é´å ç©ºæ ¼æ¯é常ä¸å¥½çä¹ æ¯ï¼è¿æ ·ä¼å¯¼è´å®é åå æ ¼å 容åçååï¼å½±åæ¥æ¾å¹é çæä½ã
æ好çæ¹æ³æ¯ç´æ¥è®¾ç½®æ°´å¹³å¯¹é½æ¹å¼ä¸ºåæ£å¯¹é½
å¦æéè¦å®ï¼ä¹å¾ç®å
Sub aa()
For Each c In ActiveSheet.UsedRange
If Len(c.Value) = 2 Then c.Value = Left(c.Value, 1) & " " & Right(c.Value, 1)
Next
End Sub